;;;; Generated on 5/21/2019 at 13:37:08 (UTC+1).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%CBBCSD %CBBCSD %%CBDSQR %CBDSQR %%CGBBRD %CGBBRD
  %%CGBCON %CGBCON %%CGBEQU %CGBEQU %%CGBEQUB %CGBEQUB %%CGBRFS %CGBRFS
  %%CGBRFSX %CGBRFSX %%CGBSV %CGBSV %%CGBSVX %CGBSVX %%CGBSVXX %CGBSVXX
  %%CGBTF2 %CGBTF2 %%CGBTRF %CGBTRF %%CGBTRS %CGBTRS %%CGEBAK %CGEBAK %%CGEBAL
  %CGEBAL %%CGEBD2 %CGEBD2 %%CGEBRD %CGEBRD %%CGECON %CGECON %%CGEEQU %CGEEQU
  %%CGEEQUB %CGEEQUB %%CGEES %CGEES %%CGEESX %CGEESX %%CGEEV %CGEEV %%CGEEVX
  %CGEEVX %%CGEHD2 %CGEHD2 %%CGEHRD %CGEHRD %%CGEJSV %CGEJSV %%CGELQ %CGELQ
  %%CGELQ2 %CGELQ2 %%CGELQF %CGELQF %%CGELQT %CGELQT %%CGELQT3 %CGELQT3 %%CGELS
  %CGELS %%CGELSD %CGELSD %%CGELSS %CGELSS %%CGELSY %CGELSY %%CGEMLQ %CGEMLQ
  %%CGEMLQT %CGEMLQT %%CGEMQR %CGEMQR %%CGEMQRT %CGEMQRT %%CGEQL2 %CGEQL2
  %%CGEQLF %CGEQLF %%CGEQP3 %CGEQP3 %%CGEQR %CGEQR %%CGEQR2 %CGEQR2 %%CGEQR2P
  %CGEQR2P %%CGEQRF %CGEQRF %%CGEQRFP %CGEQRFP %%CGEQRT %CGEQRT %%CGEQRT2
  %CGEQRT2 %%CGEQRT3 %CGEQRT3 %%CGERFS %CGERFS %%CGERFSX %CGERFSX %%CGERQ2
  %CGERQ2 %%CGERQF %CGERQF %%CGESC2 %CGESC2 %%CGESDD %CGESDD %%CGESV %CGESV
  %%CGESVD %CGESVD %%CGESVDQ %CGESVDQ %%CGESVDX %CGESVDX %%CGESVJ %CGESVJ
  %%CGESVX %CGESVX %%CGESVXX %CGESVXX %%CGETC2 %CGETC2 %%CGETF2 %CGETF2
  %%CGETRF %CGETRF %%CGETRF2 %CGETRF2 %%CGETRI %CGETRI %%CGETRS %CGETRS
  %%CGETSLS %CGETSLS %%CGGBAK %CGGBAK %%CGGBAL %CGGBAL %%CGGES %CGGES %%CGGES3
  %CGGES3 %%CGGESX %CGGESX %%CGGEV %CGGEV %%CGGEV3 %CGGEV3 %%CGGEVX %CGGEVX
  %%CGGGLM %CGGGLM %%CGGHD3 %CGGHD3 %%CGGHRD %CGGHRD %%CGGLSE %CGGLSE %%CGGQRF
  %CGGQRF %%CGGRQF %CGGRQF %%CGGSVD3 %CGGSVD3 %%CGGSVP3 %CGGSVP3 %%CGSVJ0
  %CGSVJ0 %%CGSVJ1 %CGSVJ1 %%CGTCON %CGTCON %%CGTRFS %CGTRFS %%CGTSV %CGTSV
  %%CGTSVX %CGTSVX %%CGTTRF %CGTTRF %%CGTTRS %CGTTRS %%CGTTS2 %CGTTS2
  %%CHB2ST_KERNELS %CHB2ST_KERNELS %%CHBEV %CHBEV %%CHBEV_2STAGE %CHBEV_2STAGE
  %%CHBEVD %CHBEVD %%CHBEVD_2STAGE %CHBEVD_2STAGE %%CHBEVX %CHBEVX
  %%CHBEVX_2STAGE %CHBEVX_2STAGE %%CHBGST %CHBGST %%CHBGV %CHBGV %%CHBGVD
  %CHBGVD %%CHBGVX %CHBGVX %%CHBTRD %CHBTRD %%CHECON %CHECON %%CHECON_3
  %CHECON_3 %%CHECON_ROOK %CHECON_ROOK %%CHEEQUB %CHEEQUB %%CHEEV %CHEEV
  %%CHEEV_2STAGE %CHEEV_2STAGE %%CHEEVD %CHEEVD %%CHEEVD_2STAGE %CHEEVD_2STAGE
  %%CHEEVR %CHEEVR %%CHEEVR_2STAGE %CHEEVR_2STAGE %%CHEEVX %CHEEVX
  %%CHEEVX_2STAGE %CHEEVX_2STAGE %%CHEGS2 %CHEGS2 %%CHEGST %CHEGST %%CHEGV
  %CHEGV %%CHEGV_2STAGE %CHEGV_2STAGE %%CHEGVD %CHEGVD %%CHEGVX %CHEGVX
  %%CHERFS %CHERFS %%CHERFSX %CHERFSX %%CHESV %CHESV %%CHESV_AA %CHESV_AA
  %%CHESV_AA_2STAGE %CHESV_AA_2STAGE %%CHESV_RK %CHESV_RK %%CHESV_ROOK
  %CHESV_ROOK %%CHESVX %CHESVX %%CHESVXX %CHESVXX %%CHESWAPR %CHESWAPR %%CHETD2
  %CHETD2 %%CHETF2 %CHETF2 %%CHETF2_RK %CHETF2_RK %%CHETF2_ROOK %CHETF2_ROOK
  %%CHETRD %CHETRD %%CHETRD_2STAGE %CHETRD_2STAGE %%CHETRD_HE2HB %CHETRD_HE2HB
  %%CHETRF %CHETRF %%CHETRF_AA %CHETRF_AA %%CHETRF_AA_2STAGE %CHETRF_AA_2STAGE
  %%CHETRF_RK %CHETRF_RK %%CHETRF_ROOK %CHETRF_ROOK %%CHETRI %CHETRI %%CHETRI2
  %CHETRI2 %%CHETRI2X %CHETRI2X %%CHETRI_3 %CHETRI_3 %%CHETRI_3X %CHETRI_3X
  %%CHETRI_ROOK %CHETRI_ROOK %%CHETRS %CHETRS %%CHETRS2 %CHETRS2 %%CHETRS_3
  %CHETRS_3 %%CHETRS_AA %CHETRS_AA %%CHETRS_AA_2STAGE %CHETRS_AA_2STAGE
  %%CHETRS_ROOK %CHETRS_ROOK %%CHFRK %CHFRK %%CHGEQZ %CHGEQZ %%CHLA_TRANSTYPE
  %CHLA_TRANSTYPE %%CHPCON %CHPCON %%CHPEV %CHPEV %%CHPEVD %CHPEVD %%CHPEVX
  %CHPEVX %%CHPGST %CHPGST %%CHPGV %CHPGV %%CHPGVD %CHPGVD %%CHPGVX %CHPGVX
  %%CHPRFS %CHPRFS %%CHPSV %CHPSV %%CHPSVX %CHPSVX %%CHPTRD %CHPTRD %%CHPTRF
  %CHPTRF %%CHPTRI %CHPTRI %%CHPTRS %CHPTRS %%CHSEIN %CHSEIN %%CHSEQR %CHSEQR
  %%CLA_GBAMV %CLA_GBAMV %%CLA_GBRCOND_C %CLA_GBRCOND_C %%CLA_GBRCOND_X
  %CLA_GBRCOND_X %%CLA_GBRFSX_EXTENDED %CLA_GBRFSX_EXTENDED %%CLA_GBRPVGRW
  %CLA_GBRPVGRW %%CLA_GEAMV %CLA_GEAMV %%CLA_GERCOND_C %CLA_GERCOND_C
  %%CLA_GERCOND_X %CLA_GERCOND_X %%CLA_GERFSX_EXTENDED %CLA_GERFSX_EXTENDED
  %%CLA_GERPVGRW %CLA_GERPVGRW %%CLA_HEAMV %CLA_HEAMV %%CLA_HERCOND_C
  %CLA_HERCOND_C %%CLA_HERCOND_X %CLA_HERCOND_X %%CLA_HERFSX_EXTENDED
  %CLA_HERFSX_EXTENDED %%CLA_HERPVGRW %CLA_HERPVGRW %%CLA_LIN_BERR
  %CLA_LIN_BERR %%CLA_PORCOND_C %CLA_PORCOND_C %%CLA_PORCOND_X %CLA_PORCOND_X
  %%CLA_PORFSX_EXTENDED %CLA_PORFSX_EXTENDED %%CLA_PORPVGRW %CLA_PORPVGRW
  %%CLA_SYAMV %CLA_SYAMV %%CLA_SYRCOND_C %CLA_SYRCOND_C %%CLA_SYRCOND_X
  %CLA_SYRCOND_X %%CLA_SYRFSX_EXTENDED %CLA_SYRFSX_EXTENDED %%CLA_SYRPVGRW
  %CLA_SYRPVGRW %%CLA_WWADDW %CLA_WWADDW %%CLABRD %CLABRD %%CLACGV %CLACGV
  %%CLACN2 %CLACN2 %%CLACON %CLACON %%CLACP2 %CLACP2 %%CLACPY %CLACPY %%CLACRM
  %CLACRM %%CLACRT %CLACRT %%CLADIV %CLADIV %%CLAED0 %CLAED0 %%CLAED7 %CLAED7
  %%CLAED8 %CLAED8 %%CLAEIN %CLAEIN %%CLAESY %CLAESY %%CLAEV2 %CLAEV2 %%CLAG2Z
  %CLAG2Z %%CLAGS2 %CLAGS2 %%CLAGTM %CLAGTM %%CLAHEF %CLAHEF %%CLAHEF_AA
  %CLAHEF_AA %%CLAHEF_RK %CLAHEF_RK %%CLAHEF_ROOK %CLAHEF_ROOK %%CLAHQR %CLAHQR
  %%CLAHR2 %CLAHR2 %%CLAIC1 %CLAIC1 %%CLALS0 %CLALS0 %%CLALSA %CLALSA %%CLALSD
  %CLALSD %%CLAMSWLQ %CLAMSWLQ %%CLAMTSQR %CLAMTSQR %%CLANGB %CLANGB %%CLANGE
  %CLANGE %%CLANGT %CLANGT %%CLANHB %CLANHB %%CLANHE %CLANHE %%CLANHF %CLANHF
  %%CLANHP %CLANHP %%CLANHS %CLANHS %%CLANHT %CLANHT))

(CFFI:DEFCFUN ("cbbcsd_" %%CBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (B11D :POINTER)
  (B11E :POINTER)
  (B12D :POINTER)
  (B12E :POINTER)
  (B21D :POINTER)
  (B21E :POINTER)
  (B22D :POINTER)
  (B22E :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CBBCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2
                    LDU2 V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D
                    B22E RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CBBCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B11D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B11E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B12D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B12E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B21D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B21E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B22D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B22E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF87 ':INT32) (P-REF88 ':INT32)
                              (Q-REF89 ':INT32) (LDU1-REF93 ':INT32)
                              (LDU2-REF95 ':INT32) (LDV1T-REF97 ':INT32)
                              (LDV2T-REF99 ':INT32) (LRWORK-REF109 ':INT32)
                              (INFO-REF110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF87 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF88 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF89 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF93 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF95 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF97 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF99 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF109 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF110 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF90 THETA) (PHI-REF91 PHI)
                                            (U1-REF92 U1) (U2-REF94 U2)
                                            (V1T-REF96 V1T) (V2T-REF98 V2T)
                                            (B11D-REF100 B11D)
                                            (B11E-REF101 B11E)
                                            (B12D-REF102 B12D)
                                            (B12E-REF103 B12E)
                                            (B21D-REF104 B21D)
                                            (B21E-REF105 B21E)
                                            (B22D-REF106 B22D)
                                            (B22E-REF107 B22E)
                                            (RWORK-REF108 RWORK))
      (%%CBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF87 P-REF88 Q-REF89
                THETA-REF90 PHI-REF91 U1-REF92 LDU1-REF93 U2-REF94 LDU2-REF95
                V1T-REF96 LDV1T-REF97 V2T-REF98 LDV2T-REF99 B11D-REF100
                B11E-REF101 B12D-REF102 B12E-REF103 B21D-REF104 B21E-REF105
                B22D-REF106 B22E-REF107 RWORK-REF108 LRWORK-REF109
                INFO-REF110))))

(CFFI:DEFCFUN ("cbdsqr_" %%CBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CBDSQR
                   (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CBDSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF112 ':INT32) (NCVT-REF113 ':INT32)
                              (NRU-REF114 ':INT32) (NCC-REF115 ':INT32)
                              (LDVT-REF119 ':INT32) (LDU-REF121 ':INT32)
                              (LDC-REF123 ':INT32) (INFO-REF125 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF112 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF113 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF114 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF115 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF119 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF121 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF123 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF125 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF116 D) (E-REF117 E)
                                            (VT-REF118 VT) (U-REF120 U)
                                            (C-REF122 C) (RWORK-REF124 RWORK))
      (%%CBDSQR UPLO N-REF112 NCVT-REF113 NRU-REF114 NCC-REF115 D-REF116
                E-REF117 VT-REF118 LDVT-REF119 U-REF120 LDU-REF121 C-REF122
                LDC-REF123 RWORK-REF124 INFO-REF125))))

(CFFI:DEFCFUN ("cgbbrd_" %%CGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (NCC :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (PT :POINTER)
  (LDPT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBBRD
                   (VECT M N NCC KL KU AB LDAB D E Q LDQ PT LDPT C LDC WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBBRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        PT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDPT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF127 ':INT32) (N-REF128 ':INT32)
                              (NCC-REF129 ':INT32) (KL-REF130 ':INT32)
                              (KU-REF131 ':INT32) (LDAB-REF133 ':INT32)
                              (LDQ-REF137 ':INT32) (LDPT-REF139 ':INT32)
                              (LDC-REF141 ':INT32) (INFO-REF144 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF127 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF128 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF129 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF130 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF131 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF133 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF137 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF139 :INT32) LDPT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF141 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF144 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF132 AB) (D-REF134 D)
                                            (E-REF135 E) (Q-REF136 Q)
                                            (PT-REF138 PT) (C-REF140 C)
                                            (WORK-REF142 WORK)
                                            (RWORK-REF143 RWORK))
      (%%CGBBRD VECT M-REF127 N-REF128 NCC-REF129 KL-REF130 KU-REF131 AB-REF132
                LDAB-REF133 D-REF134 E-REF135 Q-REF136 LDQ-REF137 PT-REF138
                LDPT-REF139 C-REF140 LDC-REF141 WORK-REF142 RWORK-REF143
                INFO-REF144))))

(CFFI:DEFCFUN ("cgbcon_" %%CGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBCON
                   (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF146 ':INT32) (KL-REF147 ':INT32)
                              (KU-REF148 ':INT32) (LDAB-REF150 ':INT32)
                              (ANORM-REF152 ':FLOAT) (RCOND-REF153 ':FLOAT)
                              (INFO-REF156 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF146 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF147 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF148 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF150 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF152 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF153 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF156 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF149 AB) (IPIV-REF151 IPIV)
                                            (WORK-REF154 WORK)
                                            (RWORK-REF155 RWORK))
      (%%CGBCON NORM N-REF146 KL-REF147 KU-REF148 AB-REF149 LDAB-REF150
                IPIV-REF151 ANORM-REF152 RCOND-REF153 WORK-REF154 RWORK-REF155
                INFO-REF156))))

(CFFI:DEFCFUN ("cgbequ_" %%CGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBEQU (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF157 ':INT32) (N-REF158 ':INT32)
                              (KL-REF159 ':INT32) (KU-REF160 ':INT32)
                              (LDAB-REF162 ':INT32) (ROWCND-REF165 ':FLOAT)
                              (COLCND-REF166 ':FLOAT) (AMAX-REF167 ':FLOAT)
                              (INFO-REF168 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF157 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF158 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF159 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF160 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF162 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF165 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF166 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF167 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF168 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF161 AB) (R-REF163 R)
                                            (C-REF164 C))
      (%%CGBEQU M-REF157 N-REF158 KL-REF159 KU-REF160 AB-REF161 LDAB-REF162
                R-REF163 C-REF164 ROWCND-REF165 COLCND-REF166 AMAX-REF167
                INFO-REF168))))

(CFFI:DEFCFUN ("cgbequb_" %%CGBEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBEQUB (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF169 ':INT32) (N-REF170 ':INT32)
                              (KL-REF171 ':INT32) (KU-REF172 ':INT32)
                              (LDAB-REF174 ':INT32) (ROWCND-REF177 ':FLOAT)
                              (COLCND-REF178 ':FLOAT) (AMAX-REF179 ':FLOAT)
                              (INFO-REF180 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF169 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF170 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF171 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF172 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF174 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF177 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF178 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF179 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF180 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF173 AB) (R-REF175 R)
                                            (C-REF176 C))
      (%%CGBEQUB M-REF169 N-REF170 KL-REF171 KU-REF172 AB-REF173 LDAB-REF174
                 R-REF175 C-REF176 ROWCND-REF177 COLCND-REF178 AMAX-REF179
                 INFO-REF180))))

(CFFI:DEFCFUN ("cgbrfs_" %%CGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBRFS
                   (TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV B LDB X LDX FERR
                    BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF182 ':INT32) (KL-REF183 ':INT32)
                              (KU-REF184 ':INT32) (NRHS-REF185 ':INT32)
                              (LDAB-REF187 ':INT32) (LDAFB-REF189 ':INT32)
                              (LDB-REF192 ':INT32) (LDX-REF194 ':INT32)
                              (INFO-REF199 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF182 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF183 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF184 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF185 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF187 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF189 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF192 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF194 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF199 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF186 AB) (AFB-REF188 AFB)
                                            (IPIV-REF190 IPIV) (B-REF191 B)
                                            (X-REF193 X) (FERR-REF195 FERR)
                                            (BERR-REF196 BERR)
                                            (WORK-REF197 WORK)
                                            (RWORK-REF198 RWORK))
      (%%CGBRFS TRANS N-REF182 KL-REF183 KU-REF184 NRHS-REF185 AB-REF186
                LDAB-REF187 AFB-REF188 LDAFB-REF189 IPIV-REF190 B-REF191
                LDB-REF192 X-REF193 LDX-REF194 FERR-REF195 BERR-REF196
                WORK-REF197 RWORK-REF198 INFO-REF199))))

(CFFI:DEFCFUN ("cgbrfsx_" %%CGBRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBRFSX
                   (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X
                    LDX RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF202 ':INT32) (KL-REF203 ':INT32)
                              (KU-REF204 ':INT32) (NRHS-REF205 ':INT32)
                              (LDAB-REF207 ':INT32) (LDAFB-REF209 ':INT32)
                              (LDB-REF214 ':INT32) (LDX-REF216 ':INT32)
                              (RCOND-REF217 ':FLOAT)
                              (N_ERR_BNDS-REF219 ':INT32)
                              (NPARAMS-REF222 ':INT32) (INFO-REF226 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF202 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF203 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF204 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF205 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF207 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF209 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF214 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF216 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF217 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF219 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF222 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF226 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF206 AB) (AFB-REF208 AFB)
                                            (IPIV-REF210 IPIV) (R-REF211 R)
                                            (C-REF212 C) (B-REF213 B)
                                            (X-REF215 X) (BERR-REF218 BERR)
                                            (ERR_BNDS_NORM-REF220
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF221
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF223 PARAMS)
                                            (WORK-REF224 WORK)
                                            (RWORK-REF225 RWORK))
      (%%CGBRFSX TRANS EQUED N-REF202 KL-REF203 KU-REF204 NRHS-REF205 AB-REF206
                 LDAB-REF207 AFB-REF208 LDAFB-REF209 IPIV-REF210 R-REF211
                 C-REF212 B-REF213 LDB-REF214 X-REF215 LDX-REF216 RCOND-REF217
                 BERR-REF218 N_ERR_BNDS-REF219 ERR_BNDS_NORM-REF220
                 ERR_BNDS_COMP-REF221 NPARAMS-REF222 PARAMS-REF223 WORK-REF224
                 RWORK-REF225 INFO-REF226))))

(CFFI:DEFCFUN ("cgbsv_" %%CGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF227 ':INT32) (KL-REF228 ':INT32)
                              (KU-REF229 ':INT32) (NRHS-REF230 ':INT32)
                              (LDAB-REF232 ':INT32) (LDB-REF235 ':INT32)
                              (INFO-REF236 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF227 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF228 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF229 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF230 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF232 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF235 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF236 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF231 AB) (IPIV-REF233 IPIV)
                                            (B-REF234 B))
      (%%CGBSV N-REF227 KL-REF228 KU-REF229 NRHS-REF230 AB-REF231 LDAB-REF232
               IPIV-REF233 B-REF234 LDB-REF235 INFO-REF236))))

(CFFI:DEFCFUN ("cgbsvx_" %%CGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBSVX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF239 ':INT32) (KL-REF240 ':INT32)
                              (KU-REF241 ':INT32) (NRHS-REF242 ':INT32)
                              (LDAB-REF244 ':INT32) (LDAFB-REF246 ':INT32)
                              (LDB-REF252 ':INT32) (LDX-REF254 ':INT32)
                              (RCOND-REF255 ':FLOAT) (INFO-REF260 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF239 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF240 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF241 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF242 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF244 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF246 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF252 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF254 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF255 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF260 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF243 AB) (AFB-REF245 AFB)
                                            (IPIV-REF247 IPIV) (R-REF249 R)
                                            (C-REF250 C) (B-REF251 B)
                                            (X-REF253 X) (FERR-REF256 FERR)
                                            (BERR-REF257 BERR)
                                            (WORK-REF258 WORK)
                                            (RWORK-REF259 RWORK))
      (%%CGBSVX FACT TRANS N-REF239 KL-REF240 KU-REF241 NRHS-REF242 AB-REF243
                LDAB-REF244 AFB-REF245 LDAFB-REF246 IPIV-REF247 EQUED R-REF249
                C-REF250 B-REF251 LDB-REF252 X-REF253 LDX-REF254 RCOND-REF255
                FERR-REF256 BERR-REF257 WORK-REF258 RWORK-REF259 INFO-REF260))))

(CFFI:DEFCFUN ("cgbsvxx_" %%CGBSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBSVXX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM
                    ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF263 ':INT32) (KL-REF264 ':INT32)
                              (KU-REF265 ':INT32) (NRHS-REF266 ':INT32)
                              (LDAB-REF268 ':INT32) (LDAFB-REF270 ':INT32)
                              (LDB-REF276 ':INT32) (LDX-REF278 ':INT32)
                              (RCOND-REF279 ':FLOAT) (RPVGRW-REF280 ':FLOAT)
                              (N_ERR_BNDS-REF282 ':INT32)
                              (NPARAMS-REF285 ':INT32) (INFO-REF289 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF263 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF264 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF265 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF266 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF268 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF270 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF276 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF278 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF279 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF280 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF282 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF285 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF289 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF267 AB) (AFB-REF269 AFB)
                                            (IPIV-REF271 IPIV) (R-REF273 R)
                                            (C-REF274 C) (B-REF275 B)
                                            (X-REF277 X) (BERR-REF281 BERR)
                                            (ERR_BNDS_NORM-REF283
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF284
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF286 PARAMS)
                                            (WORK-REF287 WORK)
                                            (RWORK-REF288 RWORK))
      (%%CGBSVXX FACT TRANS N-REF263 KL-REF264 KU-REF265 NRHS-REF266 AB-REF267
                 LDAB-REF268 AFB-REF269 LDAFB-REF270 IPIV-REF271 EQUED R-REF273
                 C-REF274 B-REF275 LDB-REF276 X-REF277 LDX-REF278 RCOND-REF279
                 RPVGRW-REF280 BERR-REF281 N_ERR_BNDS-REF282
                 ERR_BNDS_NORM-REF283 ERR_BNDS_COMP-REF284 NPARAMS-REF285
                 PARAMS-REF286 WORK-REF287 RWORK-REF288 INFO-REF289))))

(CFFI:DEFCFUN ("cgbtf2_" %%CGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBTF2 (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBTF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF290 ':INT32) (N-REF291 ':INT32)
                              (KL-REF292 ':INT32) (KU-REF293 ':INT32)
                              (LDAB-REF295 ':INT32) (INFO-REF297 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF290 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF291 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF292 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF293 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF295 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF297 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF294 AB) (IPIV-REF296 IPIV))
      (%%CGBTF2 M-REF290 N-REF291 KL-REF292 KU-REF293 AB-REF294 LDAB-REF295
                IPIV-REF296 INFO-REF297))))

(CFFI:DEFCFUN ("cgbtrf_" %%CGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF298 ':INT32) (N-REF299 ':INT32)
                              (KL-REF300 ':INT32) (KU-REF301 ':INT32)
                              (LDAB-REF303 ':INT32) (INFO-REF305 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF298 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF299 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF300 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF301 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF303 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF305 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF302 AB) (IPIV-REF304 IPIV))
      (%%CGBTRF M-REF298 N-REF299 KL-REF300 KU-REF301 AB-REF302 LDAB-REF303
                IPIV-REF304 INFO-REF305))))

(CFFI:DEFCFUN ("cgbtrs_" %%CGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF307 ':INT32) (KL-REF308 ':INT32)
                              (KU-REF309 ':INT32) (NRHS-REF310 ':INT32)
                              (LDAB-REF312 ':INT32) (LDB-REF315 ':INT32)
                              (INFO-REF316 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF307 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF308 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF309 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF310 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF312 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF315 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF316 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF311 AB) (IPIV-REF313 IPIV)
                                            (B-REF314 B))
      (%%CGBTRS TRANS N-REF307 KL-REF308 KU-REF309 NRHS-REF310 AB-REF311
                LDAB-REF312 IPIV-REF313 B-REF314 LDB-REF315 INFO-REF316))))

(CFFI:DEFCFUN ("cgebak_" %%CGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF319 ':INT32) (ILO-REF320 ':INT32)
                              (IHI-REF321 ':INT32) (M-REF323 ':INT32)
                              (LDV-REF325 ':INT32) (INFO-REF326 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF319 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF320 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF321 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF323 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF325 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF326 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF322 SCALE) (V-REF324 V))
      (%%CGEBAK JOB SIDE N-REF319 ILO-REF320 IHI-REF321 SCALE-REF322 M-REF323
                V-REF324 LDV-REF325 INFO-REF326))))

(CFFI:DEFCFUN ("cgebal_" %%CGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF328 ':INT32) (LDA-REF330 ':INT32)
                              (ILO-REF331 ':INT32) (IHI-REF332 ':INT32)
                              (INFO-REF334 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF328 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF330 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF331 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF332 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF334 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF329 A) (SCALE-REF333 SCALE))
      (%%CGEBAL JOB N-REF328 A-REF329 LDA-REF330 ILO-REF331 IHI-REF332
                SCALE-REF333 INFO-REF334))))

(CFFI:DEFCFUN ("cgebd2_" %%CGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF335 ':INT32) (N-REF336 ':INT32)
                              (LDA-REF338 ':INT32) (INFO-REF344 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF335 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF336 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF338 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF344 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF337 A) (D-REF339 D)
                                            (E-REF340 E) (TAUQ-REF341 TAUQ)
                                            (TAUP-REF342 TAUP)
                                            (WORK-REF343 WORK))
      (%%CGEBD2 M-REF335 N-REF336 A-REF337 LDA-REF338 D-REF339 E-REF340
                TAUQ-REF341 TAUP-REF342 WORK-REF343 INFO-REF344))))

(CFFI:DEFCFUN ("cgebrd_" %%CGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF345 ':INT32) (N-REF346 ':INT32)
                              (LDA-REF348 ':INT32) (LWORK-REF354 ':INT32)
                              (INFO-REF355 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF345 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF346 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF348 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF354 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF355 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF347 A) (D-REF349 D)
                                            (E-REF350 E) (TAUQ-REF351 TAUQ)
                                            (TAUP-REF352 TAUP)
                                            (WORK-REF353 WORK))
      (%%CGEBRD M-REF345 N-REF346 A-REF347 LDA-REF348 D-REF349 E-REF350
                TAUQ-REF351 TAUP-REF352 WORK-REF353 LWORK-REF354 INFO-REF355))))

(CFFI:DEFCFUN ("cgecon_" %%CGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGECON (NORM N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF357 ':INT32) (LDA-REF359 ':INT32)
                              (ANORM-REF360 ':FLOAT) (RCOND-REF361 ':FLOAT)
                              (INFO-REF364 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF357 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF359 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF360 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF361 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF364 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF358 A) (WORK-REF362 WORK)
                                            (RWORK-REF363 RWORK))
      (%%CGECON NORM N-REF357 A-REF358 LDA-REF359 ANORM-REF360 RCOND-REF361
                WORK-REF362 RWORK-REF363 INFO-REF364))))

(CFFI:DEFCFUN ("cgeequ_" %%CGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEEQU (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF365 ':INT32) (N-REF366 ':INT32)
                              (LDA-REF368 ':INT32) (ROWCND-REF371 ':FLOAT)
                              (COLCND-REF372 ':FLOAT) (AMAX-REF373 ':FLOAT)
                              (INFO-REF374 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF365 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF366 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF368 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF371 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF372 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF373 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF374 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF367 A) (R-REF369 R)
                                            (C-REF370 C))
      (%%CGEEQU M-REF365 N-REF366 A-REF367 LDA-REF368 R-REF369 C-REF370
                ROWCND-REF371 COLCND-REF372 AMAX-REF373 INFO-REF374))))

(CFFI:DEFCFUN ("cgeequb_" %%CGEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF375 ':INT32) (N-REF376 ':INT32)
                              (LDA-REF378 ':INT32) (ROWCND-REF381 ':FLOAT)
                              (COLCND-REF382 ':FLOAT) (AMAX-REF383 ':FLOAT)
                              (INFO-REF384 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF375 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF376 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF378 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF381 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF382 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF383 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF384 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF377 A) (R-REF379 R)
                                            (C-REF380 C))
      (%%CGEEQUB M-REF375 N-REF376 A-REF377 LDA-REF378 R-REF379 C-REF380
                 ROWCND-REF381 COLCND-REF382 AMAX-REF383 INFO-REF384))))

(CFFI:DEFCFUN ("cgees_" %%CGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (W :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEES
                   (JOBVS SORT SELECT N A LDA SDIM W VS LDVS WORK LWORK RWORK
                    BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF387 ':INT32) (N-REF388 ':INT32)
                              (LDA-REF390 ':INT32) (SDIM-REF391 ':INT32)
                              (LDVS-REF394 ':INT32) (LWORK-REF396 ':INT32)
                              (INFO-REF399 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF387 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF388 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF390 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF391 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF394 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF396 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF399 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF389 A) (W-REF392 W)
                                            (VS-REF393 VS) (WORK-REF395 WORK)
                                            (RWORK-REF397 RWORK)
                                            (BWORK-REF398 BWORK))
      (%%CGEES JOBVS SORT SELECT-REF387 N-REF388 A-REF389 LDA-REF390
               SDIM-REF391 W-REF392 VS-REF393 LDVS-REF394 WORK-REF395
               LWORK-REF396 RWORK-REF397 BWORK-REF398 INFO-REF399))))

(CFFI:DEFCFUN ("cgeesx_" %%CGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (W :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEESX
                   (JOBVS SORT SELECT SENSE N A LDA SDIM W VS LDVS RCONDE
                    RCONDV WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCONDE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF402 ':INT32) (N-REF404 ':INT32)
                              (LDA-REF406 ':INT32) (SDIM-REF407 ':INT32)
                              (LDVS-REF410 ':INT32) (RCONDE-REF411 ':FLOAT)
                              (RCONDV-REF412 ':FLOAT) (LWORK-REF414 ':INT32)
                              (INFO-REF417 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF402 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF404 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF406 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF407 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF410 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF411 :FLOAT) RCONDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF412 :FLOAT) RCONDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF414 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF417 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF405 A) (W-REF408 W)
                                            (VS-REF409 VS) (WORK-REF413 WORK)
                                            (RWORK-REF415 RWORK)
                                            (BWORK-REF416 BWORK))
      (%%CGEESX JOBVS SORT SELECT-REF402 SENSE N-REF404 A-REF405 LDA-REF406
                SDIM-REF407 W-REF408 VS-REF409 LDVS-REF410 RCONDE-REF411
                RCONDV-REF412 WORK-REF413 LWORK-REF414 RWORK-REF415
                BWORK-REF416 INFO-REF417))))

(CFFI:DEFCFUN ("cgeev_" %%CGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEEV
                   (JOBVL JOBVR N A LDA W VL LDVL VR LDVR WORK LWORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF420 ':INT32) (LDA-REF422 ':INT32)
                              (LDVL-REF425 ':INT32) (LDVR-REF427 ':INT32)
                              (LWORK-REF429 ':INT32) (INFO-REF431 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF420 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF422 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF425 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF427 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF429 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF431 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF421 A) (W-REF423 W)
                                            (VL-REF424 VL) (VR-REF426 VR)
                                            (WORK-REF428 WORK)
                                            (RWORK-REF430 RWORK))
      (%%CGEEV JOBVL JOBVR N-REF420 A-REF421 LDA-REF422 W-REF423 VL-REF424
               LDVL-REF425 VR-REF426 LDVR-REF427 WORK-REF428 LWORK-REF429
               RWORK-REF430 INFO-REF431))))

(CFFI:DEFCFUN ("cgeevx_" %%CGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (ABNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA W VL LDVL VR LDVR ILO IHI
                    SCALE ABNRM RCONDE RCONDV WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF436 ':INT32) (LDA-REF438 ':INT32)
                              (LDVL-REF441 ':INT32) (LDVR-REF443 ':INT32)
                              (ILO-REF444 ':INT32) (IHI-REF445 ':INT32)
                              (ABNRM-REF447 ':FLOAT) (LWORK-REF451 ':INT32)
                              (INFO-REF453 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF436 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF438 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF441 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF443 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF444 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF445 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF447 :FLOAT) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF451 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF453 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF437 A) (W-REF439 W)
                                            (VL-REF440 VL) (VR-REF442 VR)
                                            (SCALE-REF446 SCALE)
                                            (RCONDE-REF448 RCONDE)
                                            (RCONDV-REF449 RCONDV)
                                            (WORK-REF450 WORK)
                                            (RWORK-REF452 RWORK))
      (%%CGEEVX BALANC JOBVL JOBVR SENSE N-REF436 A-REF437 LDA-REF438 W-REF439
                VL-REF440 LDVL-REF441 VR-REF442 LDVR-REF443 ILO-REF444
                IHI-REF445 SCALE-REF446 ABNRM-REF447 RCONDE-REF448
                RCONDV-REF449 WORK-REF450 LWORK-REF451 RWORK-REF452
                INFO-REF453))))

(CFFI:DEFCFUN ("cgehd2_" %%CGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEHD2 (N ILO IHI A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEHD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF454 ':INT32) (ILO-REF455 ':INT32)
                              (IHI-REF456 ':INT32) (LDA-REF458 ':INT32)
                              (INFO-REF461 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF454 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF455 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF456 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF458 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF461 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF457 A) (TAU-REF459 TAU)
                                            (WORK-REF460 WORK))
      (%%CGEHD2 N-REF454 ILO-REF455 IHI-REF456 A-REF457 LDA-REF458 TAU-REF459
                WORK-REF460 INFO-REF461))))

(CFFI:DEFCFUN ("cgehrd_" %%CGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEHRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF462 ':INT32) (ILO-REF463 ':INT32)
                              (IHI-REF464 ':INT32) (LDA-REF466 ':INT32)
                              (LWORK-REF469 ':INT32) (INFO-REF470 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF462 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF463 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF464 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF466 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF469 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF470 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF465 A) (TAU-REF467 TAU)
                                            (WORK-REF468 WORK))
      (%%CGEHRD N-REF462 ILO-REF463 IHI-REF464 A-REF465 LDA-REF466 TAU-REF467
                WORK-REF468 LWORK-REF469 INFO-REF470))))

(CFFI:DEFCFUN ("cgejsv_" %%CGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBR :STRING)
  (JOBT :STRING)
  (JOBP :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (CWORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEJSV
                   (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV
                    CWORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEJSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF477 ':INT32) (N-REF478 ':INT32)
                              (LDA-REF480 ':INT32) (LDU-REF483 ':INT32)
                              (LDV-REF485 ':INT32) (LWORK-REF487 ':INT32)
                              (LRWORK-REF489 ':INT32) (INFO-REF491 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF477 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF478 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF480 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF483 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF485 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF487 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF489 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF491 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF479 A) (SVA-REF481 SVA)
                                            (U-REF482 U) (V-REF484 V)
                                            (CWORK-REF486 CWORK)
                                            (RWORK-REF488 RWORK)
                                            (IWORK-REF490 IWORK))
      (%%CGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF477 N-REF478 A-REF479
                LDA-REF480 SVA-REF481 U-REF482 LDU-REF483 V-REF484 LDV-REF485
                CWORK-REF486 LWORK-REF487 RWORK-REF488 LRWORK-REF489
                IWORK-REF490 INFO-REF491))))

(CFFI:DEFCFUN ("cgelq_" %%CGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELQ (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF492 ':INT32) (N-REF493 ':INT32)
                              (LDA-REF495 ':INT32) (TSIZE-REF497 ':INT32)
                              (LWORK-REF499 ':INT32) (INFO-REF500 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF492 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF493 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF495 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF497 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF499 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF500 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF494 A) (T-REF496 T)
                                            (WORK-REF498 WORK))
      (%%CGELQ M-REF492 N-REF493 A-REF494 LDA-REF495 T-REF496 TSIZE-REF497
               WORK-REF498 LWORK-REF499 INFO-REF500))))

(CFFI:DEFCFUN ("cgelq2_" %%CGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF501 ':INT32) (N-REF502 ':INT32)
                              (LDA-REF504 ':INT32) (INFO-REF507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF501 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF502 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF504 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF503 A) (TAU-REF505 TAU)
                                            (WORK-REF506 WORK))
      (%%CGELQ2 M-REF501 N-REF502 A-REF503 LDA-REF504 TAU-REF505 WORK-REF506
                INFO-REF507))))

(CFFI:DEFCFUN ("cgelqf_" %%CGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF508 ':INT32) (N-REF509 ':INT32)
                              (LDA-REF511 ':INT32) (LWORK-REF514 ':INT32)
                              (INFO-REF515 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF508 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF509 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF511 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF514 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF515 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF510 A) (TAU-REF512 TAU)
                                            (WORK-REF513 WORK))
      (%%CGELQF M-REF508 N-REF509 A-REF510 LDA-REF511 TAU-REF512 WORK-REF513
                LWORK-REF514 INFO-REF515))))

(CFFI:DEFCFUN ("cgelqt_" %%CGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF516 ':INT32) (N-REF517 ':INT32)
                              (MB-REF518 ':INT32) (LDA-REF520 ':INT32)
                              (LDT-REF522 ':INT32) (INFO-REF524 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF516 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF517 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF518 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF520 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF522 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF524 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF519 A) (T-REF521 T)
                                            (WORK-REF523 WORK))
      (%%CGELQT M-REF516 N-REF517 MB-REF518 A-REF519 LDA-REF520 T-REF521
                LDT-REF522 WORK-REF523 INFO-REF524))))

(CFFI:DEFCFUN ("cgelqt3_" %%CGELQT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELQT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF525 ':INT32) (N-REF526 ':INT32)
                              (LDA-REF528 ':INT32) (LDT-REF530 ':INT32)
                              (INFO-REF531 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF525 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF526 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF528 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF530 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF531 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF527 A) (T-REF529 T))
      (%%CGELQT3 M-REF525 N-REF526 A-REF527 LDA-REF528 T-REF529 LDT-REF530
                 INFO-REF531))))

(CFFI:DEFCFUN ("cgels_" %%CGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF533 ':INT32) (N-REF534 ':INT32)
                              (NRHS-REF535 ':INT32) (LDA-REF537 ':INT32)
                              (LDB-REF539 ':INT32) (LWORK-REF541 ':INT32)
                              (INFO-REF542 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF533 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF534 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF535 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF537 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF539 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF541 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF542 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF536 A) (B-REF538 B)
                                            (WORK-REF540 WORK))
      (%%CGELS TRANS M-REF533 N-REF534 NRHS-REF535 A-REF536 LDA-REF537 B-REF538
               LDB-REF539 WORK-REF540 LWORK-REF541 INFO-REF542))))

(CFFI:DEFCFUN ("cgelsd_" %%CGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELSD
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELSD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF543 ':INT32) (N-REF544 ':INT32)
                              (NRHS-REF545 ':INT32) (LDA-REF547 ':INT32)
                              (LDB-REF549 ':INT32) (RCOND-REF551 ':FLOAT)
                              (RANK-REF552 ':INT32) (LWORK-REF554 ':INT32)
                              (INFO-REF557 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF543 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF544 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF545 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF547 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF549 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF551 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF552 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF554 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF557 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF546 A) (B-REF548 B)
                                            (S-REF550 S) (WORK-REF553 WORK)
                                            (RWORK-REF555 RWORK)
                                            (IWORK-REF556 IWORK))
      (%%CGELSD M-REF543 N-REF544 NRHS-REF545 A-REF546 LDA-REF547 B-REF548
                LDB-REF549 S-REF550 RCOND-REF551 RANK-REF552 WORK-REF553
                LWORK-REF554 RWORK-REF555 IWORK-REF556 INFO-REF557))))

(CFFI:DEFCFUN ("cgelss_" %%CGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELSS
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELSS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF558 ':INT32) (N-REF559 ':INT32)
                              (NRHS-REF560 ':INT32) (LDA-REF562 ':INT32)
                              (LDB-REF564 ':INT32) (RCOND-REF566 ':FLOAT)
                              (RANK-REF567 ':INT32) (LWORK-REF569 ':INT32)
                              (INFO-REF571 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF558 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF559 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF560 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF562 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF564 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF566 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF567 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF569 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF571 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF561 A) (B-REF563 B)
                                            (S-REF565 S) (WORK-REF568 WORK)
                                            (RWORK-REF570 RWORK))
      (%%CGELSS M-REF558 N-REF559 NRHS-REF560 A-REF561 LDA-REF562 B-REF563
                LDB-REF564 S-REF565 RCOND-REF566 RANK-REF567 WORK-REF568
                LWORK-REF569 RWORK-REF570 INFO-REF571))))

(CFFI:DEFCFUN ("cgelsy_" %%CGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (JPVT :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELSY
                   (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELSY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF572 ':INT32) (N-REF573 ':INT32)
                              (NRHS-REF574 ':INT32) (LDA-REF576 ':INT32)
                              (LDB-REF578 ':INT32) (RCOND-REF580 ':FLOAT)
                              (RANK-REF581 ':INT32) (LWORK-REF583 ':INT32)
                              (INFO-REF585 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF572 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF573 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF574 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF576 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF578 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF580 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF581 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF583 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF585 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF575 A) (B-REF577 B)
                                            (JPVT-REF579 JPVT)
                                            (WORK-REF582 WORK)
                                            (RWORK-REF584 RWORK))
      (%%CGELSY M-REF572 N-REF573 NRHS-REF574 A-REF575 LDA-REF576 B-REF577
                LDB-REF578 JPVT-REF579 RCOND-REF580 RANK-REF581 WORK-REF582
                LWORK-REF583 RWORK-REF584 INFO-REF585))))

(CFFI:DEFCFUN ("cgemlq_" %%CGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEMLQ
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF588 ':INT32) (N-REF589 ':INT32)
                              (K-REF590 ':INT32) (LDA-REF592 ':INT32)
                              (TSIZE-REF594 ':INT32) (LDC-REF596 ':INT32)
                              (LWORK-REF598 ':INT32) (INFO-REF599 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF588 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF589 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF590 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF592 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF594 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF596 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF598 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF599 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF591 A) (T-REF593 T)
                                            (C-REF595 C) (WORK-REF597 WORK))
      (%%CGEMLQ SIDE TRANS M-REF588 N-REF589 K-REF590 A-REF591 LDA-REF592
                T-REF593 TSIZE-REF594 C-REF595 LDC-REF596 WORK-REF597
                LWORK-REF598 INFO-REF599))))

(CFFI:DEFCFUN ("cgemlqt_" %%CGEMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEMLQT (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF602 ':INT32) (N-REF603 ':INT32)
                              (K-REF604 ':INT32) (MB-REF605 ':INT32)
                              (LDV-REF607 ':INT32) (LDT-REF609 ':INT32)
                              (LDC-REF611 ':INT32) (INFO-REF613 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF602 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF603 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF604 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF605 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF607 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF609 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF611 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF613 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF606 V) (T-REF608 T)
                                            (C-REF610 C) (WORK-REF612 WORK))
      (%%CGEMLQT SIDE TRANS M-REF602 N-REF603 K-REF604 MB-REF605 V-REF606
                 LDV-REF607 T-REF608 LDT-REF609 C-REF610 LDC-REF611 WORK-REF612
                 INFO-REF613))))

(CFFI:DEFCFUN ("cgemqr_" %%CGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEMQR
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF616 ':INT32) (N-REF617 ':INT32)
                              (K-REF618 ':INT32) (LDA-REF620 ':INT32)
                              (TSIZE-REF622 ':INT32) (LDC-REF624 ':INT32)
                              (LWORK-REF626 ':INT32) (INFO-REF627 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF616 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF617 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF618 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF620 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF622 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF624 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF626 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF627 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF619 A) (T-REF621 T)
                                            (C-REF623 C) (WORK-REF625 WORK))
      (%%CGEMQR SIDE TRANS M-REF616 N-REF617 K-REF618 A-REF619 LDA-REF620
                T-REF621 TSIZE-REF622 C-REF623 LDC-REF624 WORK-REF625
                LWORK-REF626 INFO-REF627))))

(CFFI:DEFCFUN ("cgemqrt_" %%CGEMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEMQRT (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF630 ':INT32) (N-REF631 ':INT32)
                              (K-REF632 ':INT32) (NB-REF633 ':INT32)
                              (LDV-REF635 ':INT32) (LDT-REF637 ':INT32)
                              (LDC-REF639 ':INT32) (INFO-REF641 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF630 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF631 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF632 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF633 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF635 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF637 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF639 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF641 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF634 V) (T-REF636 T)
                                            (C-REF638 C) (WORK-REF640 WORK))
      (%%CGEMQRT SIDE TRANS M-REF630 N-REF631 K-REF632 NB-REF633 V-REF634
                 LDV-REF635 T-REF636 LDT-REF637 C-REF638 LDC-REF639 WORK-REF640
                 INFO-REF641))))

(CFFI:DEFCFUN ("cgeql2_" %%CGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQL2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF642 ':INT32) (N-REF643 ':INT32)
                              (LDA-REF645 ':INT32) (INFO-REF648 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF642 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF643 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF645 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF648 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF644 A) (TAU-REF646 TAU)
                                            (WORK-REF647 WORK))
      (%%CGEQL2 M-REF642 N-REF643 A-REF644 LDA-REF645 TAU-REF646 WORK-REF647
                INFO-REF648))))

(CFFI:DEFCFUN ("cgeqlf_" %%CGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQLF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF649 ':INT32) (N-REF650 ':INT32)
                              (LDA-REF652 ':INT32) (LWORK-REF655 ':INT32)
                              (INFO-REF656 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF649 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF650 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF652 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF655 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF656 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF651 A) (TAU-REF653 TAU)
                                            (WORK-REF654 WORK))
      (%%CGEQLF M-REF649 N-REF650 A-REF651 LDA-REF652 TAU-REF653 WORK-REF654
                LWORK-REF655 INFO-REF656))))

(CFFI:DEFCFUN ("cgeqp3_" %%CGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQP3 (M N A LDA JPVT TAU WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQP3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF657 ':INT32) (N-REF658 ':INT32)
                              (LDA-REF660 ':INT32) (LWORK-REF664 ':INT32)
                              (INFO-REF666 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF657 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF658 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF660 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF664 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF666 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF659 A) (JPVT-REF661 JPVT)
                                            (TAU-REF662 TAU) (WORK-REF663 WORK)
                                            (RWORK-REF665 RWORK))
      (%%CGEQP3 M-REF657 N-REF658 A-REF659 LDA-REF660 JPVT-REF661 TAU-REF662
                WORK-REF663 LWORK-REF664 RWORK-REF665 INFO-REF666))))

(CFFI:DEFCFUN ("cgeqr_" %%CGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF667 ':INT32) (N-REF668 ':INT32)
                              (LDA-REF670 ':INT32) (TSIZE-REF672 ':INT32)
                              (LWORK-REF674 ':INT32) (INFO-REF675 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF667 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF668 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF670 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF672 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF674 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF675 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF669 A) (T-REF671 T)
                                            (WORK-REF673 WORK))
      (%%CGEQR M-REF667 N-REF668 A-REF669 LDA-REF670 T-REF671 TSIZE-REF672
               WORK-REF673 LWORK-REF674 INFO-REF675))))

(CFFI:DEFCFUN ("cgeqr2_" %%CGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF676 ':INT32) (N-REF677 ':INT32)
                              (LDA-REF679 ':INT32) (INFO-REF682 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF676 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF677 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF679 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF682 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF678 A) (TAU-REF680 TAU)
                                            (WORK-REF681 WORK))
      (%%CGEQR2 M-REF676 N-REF677 A-REF678 LDA-REF679 TAU-REF680 WORK-REF681
                INFO-REF682))))

(CFFI:DEFCFUN ("cgeqr2p_" %%CGEQR2P :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQR2P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF683 ':INT32) (N-REF684 ':INT32)
                              (LDA-REF686 ':INT32) (INFO-REF689 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF683 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF684 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF686 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF689 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF685 A) (TAU-REF687 TAU)
                                            (WORK-REF688 WORK))
      (%%CGEQR2P M-REF683 N-REF684 A-REF685 LDA-REF686 TAU-REF687 WORK-REF688
                 INFO-REF689))))

(CFFI:DEFCFUN ("cgeqrf_" %%CGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQRF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF690 ':INT32) (N-REF691 ':INT32)
                              (LDA-REF693 ':INT32) (LWORK-REF696 ':INT32)
                              (INFO-REF697 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF690 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF691 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF693 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF696 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF697 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF692 A) (TAU-REF694 TAU)
                                            (WORK-REF695 WORK))
      (%%CGEQRF M-REF690 N-REF691 A-REF692 LDA-REF693 TAU-REF694 WORK-REF695
                LWORK-REF696 INFO-REF697))))

(CFFI:DEFCFUN ("cgeqrfp_" %%CGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQRFP (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRFP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF698 ':INT32) (N-REF699 ':INT32)
                              (LDA-REF701 ':INT32) (LWORK-REF704 ':INT32)
                              (INFO-REF705 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF698 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF699 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF701 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF704 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF705 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF700 A) (TAU-REF702 TAU)
                                            (WORK-REF703 WORK))
      (%%CGEQRFP M-REF698 N-REF699 A-REF700 LDA-REF701 TAU-REF702 WORK-REF703
                 LWORK-REF704 INFO-REF705))))

(CFFI:DEFCFUN ("cgeqrt_" %%CGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF706 ':INT32) (N-REF707 ':INT32)
                              (NB-REF708 ':INT32) (LDA-REF710 ':INT32)
                              (LDT-REF712 ':INT32) (INFO-REF714 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF706 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF707 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF708 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF710 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF712 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF714 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF709 A) (T-REF711 T)
                                            (WORK-REF713 WORK))
      (%%CGEQRT M-REF706 N-REF707 NB-REF708 A-REF709 LDA-REF710 T-REF711
                LDT-REF712 WORK-REF713 INFO-REF714))))

(CFFI:DEFCFUN ("cgeqrt2_" %%CGEQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF715 ':INT32) (N-REF716 ':INT32)
                              (LDA-REF718 ':INT32) (LDT-REF720 ':INT32)
                              (INFO-REF721 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF715 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF716 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF718 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF720 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF721 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF717 A) (T-REF719 T))
      (%%CGEQRT2 M-REF715 N-REF716 A-REF717 LDA-REF718 T-REF719 LDT-REF720
                 INFO-REF721))))

(CFFI:DEFCFUN ("cgeqrt3_" %%CGEQRT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF722 ':INT32) (N-REF723 ':INT32)
                              (LDA-REF725 ':INT32) (LDT-REF727 ':INT32)
                              (INFO-REF728 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF722 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF723 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF725 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF727 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF728 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF724 A) (T-REF726 T))
      (%%CGEQRT3 M-REF722 N-REF723 A-REF724 LDA-REF725 T-REF726 LDT-REF727
                 INFO-REF728))))

(CFFI:DEFCFUN ("cgerfs_" %%CGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGERFS
                   (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF730 ':INT32) (NRHS-REF731 ':INT32)
                              (LDA-REF733 ':INT32) (LDAF-REF735 ':INT32)
                              (LDB-REF738 ':INT32) (LDX-REF740 ':INT32)
                              (INFO-REF745 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF730 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF731 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF733 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF735 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF738 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF740 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF745 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF732 A) (AF-REF734 AF)
                                            (IPIV-REF736 IPIV) (B-REF737 B)
                                            (X-REF739 X) (FERR-REF741 FERR)
                                            (BERR-REF742 BERR)
                                            (WORK-REF743 WORK)
                                            (RWORK-REF744 RWORK))
      (%%CGERFS TRANS N-REF730 NRHS-REF731 A-REF732 LDA-REF733 AF-REF734
                LDAF-REF735 IPIV-REF736 B-REF737 LDB-REF738 X-REF739 LDX-REF740
                FERR-REF741 BERR-REF742 WORK-REF743 RWORK-REF744 INFO-REF745))))

(CFFI:DEFCFUN ("cgerfsx_" %%CGERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGERFSX
                   (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF748 ':INT32) (NRHS-REF749 ':INT32)
                              (LDA-REF751 ':INT32) (LDAF-REF753 ':INT32)
                              (LDB-REF758 ':INT32) (LDX-REF760 ':INT32)
                              (RCOND-REF761 ':FLOAT)
                              (N_ERR_BNDS-REF763 ':INT32)
                              (NPARAMS-REF766 ':INT32) (INFO-REF770 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF748 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF749 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF751 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF753 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF758 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF760 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF761 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF763 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF766 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF770 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF750 A) (AF-REF752 AF)
                                            (IPIV-REF754 IPIV) (R-REF755 R)
                                            (C-REF756 C) (B-REF757 B)
                                            (X-REF759 X) (BERR-REF762 BERR)
                                            (ERR_BNDS_NORM-REF764
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF765
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF767 PARAMS)
                                            (WORK-REF768 WORK)
                                            (RWORK-REF769 RWORK))
      (%%CGERFSX TRANS EQUED N-REF748 NRHS-REF749 A-REF750 LDA-REF751 AF-REF752
                 LDAF-REF753 IPIV-REF754 R-REF755 C-REF756 B-REF757 LDB-REF758
                 X-REF759 LDX-REF760 RCOND-REF761 BERR-REF762 N_ERR_BNDS-REF763
                 ERR_BNDS_NORM-REF764 ERR_BNDS_COMP-REF765 NPARAMS-REF766
                 PARAMS-REF767 WORK-REF768 RWORK-REF769 INFO-REF770))))

(CFFI:DEFCFUN ("cgerq2_" %%CGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGERQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF771 ':INT32) (N-REF772 ':INT32)
                              (LDA-REF774 ':INT32) (INFO-REF777 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF771 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF772 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF774 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF777 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF773 A) (TAU-REF775 TAU)
                                            (WORK-REF776 WORK))
      (%%CGERQ2 M-REF771 N-REF772 A-REF773 LDA-REF774 TAU-REF775 WORK-REF776
                INFO-REF777))))

(CFFI:DEFCFUN ("cgerqf_" %%CGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF778 ':INT32) (N-REF779 ':INT32)
                              (LDA-REF781 ':INT32) (LWORK-REF784 ':INT32)
                              (INFO-REF785 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF778 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF779 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF781 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF784 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF785 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF780 A) (TAU-REF782 TAU)
                                            (WORK-REF783 WORK))
      (%%CGERQF M-REF778 N-REF779 A-REF780 LDA-REF781 TAU-REF782 WORK-REF783
                LWORK-REF784 INFO-REF785))))

(CFFI:DEFCFUN ("cgesc2_" %%CGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RHS :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (SCALE :POINTER))

(COMMON-LISP:DEFUN %CGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF786 ':INT32) (LDA-REF788 ':INT32)
                              (SCALE-REF792 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF786 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF788 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF792 :FLOAT) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF787 A) (RHS-REF789 RHS)
                                            (IPIV-REF790 IPIV)
                                            (JPIV-REF791 JPIV))
      (%%CGESC2 N-REF786 A-REF787 LDA-REF788 RHS-REF789 IPIV-REF790 JPIV-REF791
                SCALE-REF792))))

(CFFI:DEFCFUN ("cgesdd_" %%CGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESDD
                   (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESDD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF794 ':INT32) (N-REF795 ':INT32)
                              (LDA-REF797 ':INT32) (LDU-REF800 ':INT32)
                              (LDVT-REF802 ':INT32) (LWORK-REF804 ':INT32)
                              (INFO-REF807 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF794 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF795 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF797 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF800 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF802 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF804 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF807 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF796 A) (S-REF798 S)
                                            (U-REF799 U) (VT-REF801 VT)
                                            (WORK-REF803 WORK)
                                            (RWORK-REF805 RWORK)
                                            (IWORK-REF806 IWORK))
      (%%CGESDD JOBZ M-REF794 N-REF795 A-REF796 LDA-REF797 S-REF798 U-REF799
                LDU-REF800 VT-REF801 LDVT-REF802 WORK-REF803 LWORK-REF804
                RWORK-REF805 IWORK-REF806 INFO-REF807))))

(CFFI:DEFCFUN ("cgesv_" %%CGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF808 ':INT32) (NRHS-REF809 ':INT32)
                              (LDA-REF811 ':INT32) (LDB-REF814 ':INT32)
                              (INFO-REF815 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF808 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF809 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF811 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF814 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF815 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF810 A) (IPIV-REF812 IPIV)
                                            (B-REF813 B))
      (%%CGESV N-REF808 NRHS-REF809 A-REF810 LDA-REF811 IPIV-REF812 B-REF813
               LDB-REF814 INFO-REF815))))

(CFFI:DEFCFUN ("cgesvd_" %%CGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVD
                   (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF818 ':INT32) (N-REF819 ':INT32)
                              (LDA-REF821 ':INT32) (LDU-REF824 ':INT32)
                              (LDVT-REF826 ':INT32) (LWORK-REF828 ':INT32)
                              (INFO-REF830 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF818 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF819 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF821 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF824 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF826 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF828 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF830 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF820 A) (S-REF822 S)
                                            (U-REF823 U) (VT-REF825 VT)
                                            (WORK-REF827 WORK)
                                            (RWORK-REF829 RWORK))
      (%%CGESVD JOBU JOBVT M-REF818 N-REF819 A-REF820 LDA-REF821 S-REF822
                U-REF823 LDU-REF824 VT-REF825 LDVT-REF826 WORK-REF827
                LWORK-REF828 RWORK-REF829 INFO-REF830))))

(CFFI:DEFCFUN ("cgesvdq_" %%CGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBP :STRING)
  (JOBR :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NUMRANK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (CWORK :POINTER)
  (LCWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVDQ
                   (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK
                    IWORK LIWORK CWORK LCWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF836 ':INT32) (N-REF837 ':INT32)
                              (LDA-REF839 ':INT32) (LDU-REF842 ':INT32)
                              (LDV-REF844 ':INT32) (NUMRANK-REF845 ':INT32)
                              (LIWORK-REF847 ':INT32) (LCWORK-REF849 ':INT32)
                              (LRWORK-REF851 ':INT32) (INFO-REF852 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF836 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF837 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF839 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF842 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF844 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF845 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF847 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF849 :INT32) LCWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF851 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF852 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF838 A) (S-REF840 S)
                                            (U-REF841 U) (V-REF843 V)
                                            (IWORK-REF846 IWORK)
                                            (CWORK-REF848 CWORK)
                                            (RWORK-REF850 RWORK))
      (%%CGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF836 N-REF837 A-REF838 LDA-REF839
                 S-REF840 U-REF841 LDU-REF842 V-REF843 LDV-REF844
                 NUMRANK-REF845 IWORK-REF846 LIWORK-REF847 CWORK-REF848
                 LCWORK-REF849 RWORK-REF850 LRWORK-REF851 INFO-REF852))))

(CFFI:DEFCFUN ("cgesvdx_" %%CGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (RANGE :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVDX
                   (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT
                    WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF856 ':INT32) (N-REF857 ':INT32)
                              (LDA-REF859 ':INT32) (VL-REF860 ':FLOAT)
                              (VU-REF861 ':FLOAT) (IL-REF862 ':INT32)
                              (IU-REF863 ':INT32) (NS-REF864 ':INT32)
                              (LDU-REF867 ':INT32) (LDVT-REF869 ':INT32)
                              (LWORK-REF871 ':INT32) (INFO-REF874 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF856 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF857 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF859 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF860 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF861 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF862 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF863 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF864 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF867 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF869 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF871 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF874 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF858 A) (S-REF865 S)
                                            (U-REF866 U) (VT-REF868 VT)
                                            (WORK-REF870 WORK)
                                            (RWORK-REF872 RWORK)
                                            (IWORK-REF873 IWORK))
      (%%CGESVDX JOBU JOBVT RANGE M-REF856 N-REF857 A-REF858 LDA-REF859
                 VL-REF860 VU-REF861 IL-REF862 IU-REF863 NS-REF864 S-REF865
                 U-REF866 LDU-REF867 VT-REF868 LDVT-REF869 WORK-REF870
                 LWORK-REF871 RWORK-REF872 IWORK-REF873 INFO-REF874))))

(CFFI:DEFCFUN ("cgesvj_" %%CGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (CWORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVJ
                   (JOBA JOBU JOBV M N A LDA SVA MV V LDV CWORK LWORK RWORK
                    LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVJ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF878 ':INT32) (N-REF879 ':INT32)
                              (LDA-REF881 ':INT32) (MV-REF883 ':INT32)
                              (LDV-REF885 ':INT32) (LWORK-REF887 ':INT32)
                              (LRWORK-REF889 ':INT32) (INFO-REF890 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF878 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF879 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF881 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF883 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF885 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF887 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF889 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF890 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF880 A) (SVA-REF882 SVA)
                                            (V-REF884 V) (CWORK-REF886 CWORK)
                                            (RWORK-REF888 RWORK))
      (%%CGESVJ JOBA JOBU JOBV M-REF878 N-REF879 A-REF880 LDA-REF881 SVA-REF882
                MV-REF883 V-REF884 LDV-REF885 CWORK-REF886 LWORK-REF887
                RWORK-REF888 LRWORK-REF889 INFO-REF890))))

(CFFI:DEFCFUN ("cgesvx_" %%CGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF893 ':INT32) (NRHS-REF894 ':INT32)
                              (LDA-REF896 ':INT32) (LDAF-REF898 ':INT32)
                              (LDB-REF904 ':INT32) (LDX-REF906 ':INT32)
                              (RCOND-REF907 ':FLOAT) (INFO-REF912 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF893 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF894 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF896 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF898 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF904 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF906 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF907 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF912 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF895 A) (AF-REF897 AF)
                                            (IPIV-REF899 IPIV) (R-REF901 R)
                                            (C-REF902 C) (B-REF903 B)
                                            (X-REF905 X) (FERR-REF908 FERR)
                                            (BERR-REF909 BERR)
                                            (WORK-REF910 WORK)
                                            (RWORK-REF911 RWORK))
      (%%CGESVX FACT TRANS N-REF893 NRHS-REF894 A-REF895 LDA-REF896 AF-REF897
                LDAF-REF898 IPIV-REF899 EQUED R-REF901 C-REF902 B-REF903
                LDB-REF904 X-REF905 LDX-REF906 RCOND-REF907 FERR-REF908
                BERR-REF909 WORK-REF910 RWORK-REF911 INFO-REF912))))

(CFFI:DEFCFUN ("cgesvxx_" %%CGESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVXX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF915 ':INT32) (NRHS-REF916 ':INT32)
                              (LDA-REF918 ':INT32) (LDAF-REF920 ':INT32)
                              (LDB-REF926 ':INT32) (LDX-REF928 ':INT32)
                              (RCOND-REF929 ':FLOAT) (RPVGRW-REF930 ':FLOAT)
                              (N_ERR_BNDS-REF932 ':INT32)
                              (NPARAMS-REF935 ':INT32) (INFO-REF939 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF915 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF916 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF918 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF920 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF926 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF928 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF929 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF930 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF932 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF935 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF939 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF917 A) (AF-REF919 AF)
                                            (IPIV-REF921 IPIV) (R-REF923 R)
                                            (C-REF924 C) (B-REF925 B)
                                            (X-REF927 X) (BERR-REF931 BERR)
                                            (ERR_BNDS_NORM-REF933
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF934
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF936 PARAMS)
                                            (WORK-REF937 WORK)
                                            (RWORK-REF938 RWORK))
      (%%CGESVXX FACT TRANS N-REF915 NRHS-REF916 A-REF917 LDA-REF918 AF-REF919
                 LDAF-REF920 IPIV-REF921 EQUED R-REF923 C-REF924 B-REF925
                 LDB-REF926 X-REF927 LDX-REF928 RCOND-REF929 RPVGRW-REF930
                 BERR-REF931 N_ERR_BNDS-REF932 ERR_BNDS_NORM-REF933
                 ERR_BNDS_COMP-REF934 NPARAMS-REF935 PARAMS-REF936 WORK-REF937
                 RWORK-REF938 INFO-REF939))))

(CFFI:DEFCFUN ("cgetc2_" %%CGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETC2 (N A LDA IPIV JPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF940 ':INT32) (LDA-REF942 ':INT32)
                              (INFO-REF945 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF940 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF942 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF945 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF941 A) (IPIV-REF943 IPIV)
                                            (JPIV-REF944 JPIV))
      (%%CGETC2 N-REF940 A-REF941 LDA-REF942 IPIV-REF943 JPIV-REF944
                INFO-REF945))))

(CFFI:DEFCFUN ("cgetf2_" %%CGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF946 ':INT32) (N-REF947 ':INT32)
                              (LDA-REF949 ':INT32) (INFO-REF951 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF946 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF947 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF949 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF951 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF948 A) (IPIV-REF950 IPIV))
      (%%CGETF2 M-REF946 N-REF947 A-REF948 LDA-REF949 IPIV-REF950
                INFO-REF951))))

(CFFI:DEFCFUN ("cgetrf_" %%CGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF952 ':INT32) (N-REF953 ':INT32)
                              (LDA-REF955 ':INT32) (INFO-REF957 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF952 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF953 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF955 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF957 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF954 A) (IPIV-REF956 IPIV))
      (%%CGETRF M-REF952 N-REF953 A-REF954 LDA-REF955 IPIV-REF956
                INFO-REF957))))

(CFFI:DEFCFUN ("cgetrf2_" %%CGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETRF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF958 ':INT32) (N-REF959 ':INT32)
                              (LDA-REF961 ':INT32) (INFO-REF963 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF958 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF959 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF961 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF963 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF960 A) (IPIV-REF962 IPIV))
      (%%CGETRF2 M-REF958 N-REF959 A-REF960 LDA-REF961 IPIV-REF962
                 INFO-REF963))))

(CFFI:DEFCFUN ("cgetri_" %%CGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETRI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF964 ':INT32) (LDA-REF966 ':INT32)
                              (LWORK-REF969 ':INT32) (INFO-REF970 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF964 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF966 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF969 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF970 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF965 A) (IPIV-REF967 IPIV)
                                            (WORK-REF968 WORK))
      (%%CGETRI N-REF964 A-REF965 LDA-REF966 IPIV-REF967 WORK-REF968
                LWORK-REF969 INFO-REF970))))

(CFFI:DEFCFUN ("cgetrs_" %%CGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF972 ':INT32) (NRHS-REF973 ':INT32)
                              (LDA-REF975 ':INT32) (LDB-REF978 ':INT32)
                              (INFO-REF979 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF972 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF973 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF975 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF978 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF979 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF974 A) (IPIV-REF976 IPIV)
                                            (B-REF977 B))
      (%%CGETRS TRANS N-REF972 NRHS-REF973 A-REF974 LDA-REF975 IPIV-REF976
                B-REF977 LDB-REF978 INFO-REF979))))

(CFFI:DEFCFUN ("cgetsls_" %%CGETSLS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETSLS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETSLS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF981 ':INT32) (N-REF982 ':INT32)
                              (NRHS-REF983 ':INT32) (LDA-REF985 ':INT32)
                              (LDB-REF987 ':INT32) (LWORK-REF989 ':INT32)
                              (INFO-REF990 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF981 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF982 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF983 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF985 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF987 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF989 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF990 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF984 A) (B-REF986 B)
                                            (WORK-REF988 WORK))
      (%%CGETSLS TRANS M-REF981 N-REF982 NRHS-REF983 A-REF984 LDA-REF985
                 B-REF986 LDB-REF987 WORK-REF988 LWORK-REF989 INFO-REF990))))

(CFFI:DEFCFUN ("cggbak_" %%CGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGBAK (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF993 ':INT32) (ILO-REF994 ':INT32)
                              (IHI-REF995 ':INT32) (M-REF998 ':INT32)
                              (LDV-REF1000 ':INT32) (INFO-REF1001 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF993 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF994 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF995 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF998 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1000 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1001 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF996 LSCALE)
                                            (RSCALE-REF997 RSCALE) (V-REF999 V))
      (%%CGGBAK JOB SIDE N-REF993 ILO-REF994 IHI-REF995 LSCALE-REF996
                RSCALE-REF997 M-REF998 V-REF999 LDV-REF1000 INFO-REF1001))))

(CFFI:DEFCFUN ("cggbal_" %%CGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGBAL (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1003 ':INT32) (LDA-REF1005 ':INT32)
                              (LDB-REF1007 ':INT32) (ILO-REF1008 ':INT32)
                              (IHI-REF1009 ':INT32) (INFO-REF1013 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1003 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1005 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1007 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1008 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1009 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1013 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1004 A) (B-REF1006 B)
                                            (LSCALE-REF1010 LSCALE)
                                            (RSCALE-REF1011 RSCALE)
                                            (WORK-REF1012 WORK))
      (%%CGGBAL JOB N-REF1003 A-REF1004 LDA-REF1005 B-REF1006 LDB-REF1007
                ILO-REF1008 IHI-REF1009 LSCALE-REF1010 RSCALE-REF1011
                WORK-REF1012 INFO-REF1013))))

(CFFI:DEFCFUN ("cgges_" %%CGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGES
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHA BETA VSL
                    LDVSL VSR LDVSR WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1017 ':INT32) (N-REF1018 ':INT32)
                              (LDA-REF1020 ':INT32) (LDB-REF1022 ':INT32)
                              (SDIM-REF1023 ':INT32) (LDVSL-REF1027 ':INT32)
                              (LDVSR-REF1029 ':INT32) (LWORK-REF1031 ':INT32)
                              (INFO-REF1034 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1017 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1018 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1020 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1022 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1023 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1027 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1029 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1031 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1034 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1019 A) (B-REF1021 B)
                                            (ALPHA-REF1024 ALPHA)
                                            (BETA-REF1025 BETA)
                                            (VSL-REF1026 VSL) (VSR-REF1028 VSR)
                                            (WORK-REF1030 WORK)
                                            (RWORK-REF1032 RWORK)
                                            (BWORK-REF1033 BWORK))
      (%%CGGES JOBVSL JOBVSR SORT SELCTG-REF1017 N-REF1018 A-REF1019
               LDA-REF1020 B-REF1021 LDB-REF1022 SDIM-REF1023 ALPHA-REF1024
               BETA-REF1025 VSL-REF1026 LDVSL-REF1027 VSR-REF1028 LDVSR-REF1029
               WORK-REF1030 LWORK-REF1031 RWORK-REF1032 BWORK-REF1033
               INFO-REF1034))))

(CFFI:DEFCFUN ("cgges3_" %%CGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGES3
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHA BETA VSL
                    LDVSL VSR LDVSR WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGES3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1038 ':INT32) (N-REF1039 ':INT32)
                              (LDA-REF1041 ':INT32) (LDB-REF1043 ':INT32)
                              (SDIM-REF1044 ':INT32) (LDVSL-REF1048 ':INT32)
                              (LDVSR-REF1050 ':INT32) (LWORK-REF1052 ':INT32)
                              (INFO-REF1055 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1038 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1039 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1041 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1043 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1044 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1048 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1050 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1052 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1055 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1040 A) (B-REF1042 B)
                                            (ALPHA-REF1045 ALPHA)
                                            (BETA-REF1046 BETA)
                                            (VSL-REF1047 VSL) (VSR-REF1049 VSR)
                                            (WORK-REF1051 WORK)
                                            (RWORK-REF1053 RWORK)
                                            (BWORK-REF1054 BWORK))
      (%%CGGES3 JOBVSL JOBVSR SORT SELCTG-REF1038 N-REF1039 A-REF1040
                LDA-REF1041 B-REF1042 LDB-REF1043 SDIM-REF1044 ALPHA-REF1045
                BETA-REF1046 VSL-REF1047 LDVSL-REF1048 VSR-REF1049
                LDVSR-REF1050 WORK-REF1051 LWORK-REF1052 RWORK-REF1053
                BWORK-REF1054 INFO-REF1055))))

(CFFI:DEFCFUN ("cggesx_" %%CGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGESX
                   (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHA
                    BETA VSL LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK RWORK
                    IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1059 ':INT32) (N-REF1061 ':INT32)
                              (LDA-REF1063 ':INT32) (LDB-REF1065 ':INT32)
                              (SDIM-REF1066 ':INT32) (LDVSL-REF1070 ':INT32)
                              (LDVSR-REF1072 ':INT32) (LWORK-REF1076 ':INT32)
                              (LIWORK-REF1079 ':INT32) (INFO-REF1081 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1059 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1061 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1063 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1065 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1066 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1070 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1072 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1076 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1079 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1081 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1062 A) (B-REF1064 B)
                                            (ALPHA-REF1067 ALPHA)
                                            (BETA-REF1068 BETA)
                                            (VSL-REF1069 VSL) (VSR-REF1071 VSR)
                                            (RCONDE-REF1073 RCONDE)
                                            (RCONDV-REF1074 RCONDV)
                                            (WORK-REF1075 WORK)
                                            (RWORK-REF1077 RWORK)
                                            (IWORK-REF1078 IWORK)
                                            (BWORK-REF1080 BWORK))
      (%%CGGESX JOBVSL JOBVSR SORT SELCTG-REF1059 SENSE N-REF1061 A-REF1062
                LDA-REF1063 B-REF1064 LDB-REF1065 SDIM-REF1066 ALPHA-REF1067
                BETA-REF1068 VSL-REF1069 LDVSL-REF1070 VSR-REF1071
                LDVSR-REF1072 RCONDE-REF1073 RCONDV-REF1074 WORK-REF1075
                LWORK-REF1076 RWORK-REF1077 IWORK-REF1078 LIWORK-REF1079
                BWORK-REF1080 INFO-REF1081))))

(CFFI:DEFCFUN ("cggev_" %%CGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGEV
                   (JOBVL JOBVR N A LDA B LDB ALPHA BETA VL LDVL VR LDVR WORK
                    LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1084 ':INT32) (LDA-REF1086 ':INT32)
                              (LDB-REF1088 ':INT32) (LDVL-REF1092 ':INT32)
                              (LDVR-REF1094 ':INT32) (LWORK-REF1096 ':INT32)
                              (INFO-REF1098 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1084 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1086 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1088 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1092 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1094 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1096 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1098 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1085 A) (B-REF1087 B)
                                            (ALPHA-REF1089 ALPHA)
                                            (BETA-REF1090 BETA) (VL-REF1091 VL)
                                            (VR-REF1093 VR) (WORK-REF1095 WORK)
                                            (RWORK-REF1097 RWORK))
      (%%CGGEV JOBVL JOBVR N-REF1084 A-REF1085 LDA-REF1086 B-REF1087
               LDB-REF1088 ALPHA-REF1089 BETA-REF1090 VL-REF1091 LDVL-REF1092
               VR-REF1093 LDVR-REF1094 WORK-REF1095 LWORK-REF1096 RWORK-REF1097
               INFO-REF1098))))

(CFFI:DEFCFUN ("cggev3_" %%CGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGEV3
                   (JOBVL JOBVR N A LDA B LDB ALPHA BETA VL LDVL VR LDVR WORK
                    LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGEV3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1101 ':INT32) (LDA-REF1103 ':INT32)
                              (LDB-REF1105 ':INT32) (LDVL-REF1109 ':INT32)
                              (LDVR-REF1111 ':INT32) (LWORK-REF1113 ':INT32)
                              (INFO-REF1115 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1101 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1103 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1105 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1109 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1111 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1113 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1115 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1102 A) (B-REF1104 B)
                                            (ALPHA-REF1106 ALPHA)
                                            (BETA-REF1107 BETA) (VL-REF1108 VL)
                                            (VR-REF1110 VR) (WORK-REF1112 WORK)
                                            (RWORK-REF1114 RWORK))
      (%%CGGEV3 JOBVL JOBVR N-REF1101 A-REF1102 LDA-REF1103 B-REF1104
                LDB-REF1105 ALPHA-REF1106 BETA-REF1107 VL-REF1108 LDVL-REF1109
                VR-REF1110 LDVR-REF1111 WORK-REF1112 LWORK-REF1113
                RWORK-REF1114 INFO-REF1115))))

(CFFI:DEFCFUN ("cggevx_" %%CGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (ABNRM :POINTER)
  (BBNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHA BETA VL LDVL
                    VR LDVR ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE RCONDV
                    WORK LWORK RWORK IWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BBNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1120 ':INT32) (LDA-REF1122 ':INT32)
                              (LDB-REF1124 ':INT32) (LDVL-REF1128 ':INT32)
                              (LDVR-REF1130 ':INT32) (ILO-REF1131 ':INT32)
                              (IHI-REF1132 ':INT32) (ABNRM-REF1135 ':FLOAT)
                              (BBNRM-REF1136 ':FLOAT) (LWORK-REF1140 ':INT32)
                              (INFO-REF1144 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1120 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1122 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1124 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1128 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1130 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1131 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1132 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF1135 :FLOAT) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF1136 :FLOAT) BBNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1140 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1144 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1121 A) (B-REF1123 B)
                                            (ALPHA-REF1125 ALPHA)
                                            (BETA-REF1126 BETA) (VL-REF1127 VL)
                                            (VR-REF1129 VR)
                                            (LSCALE-REF1133 LSCALE)
                                            (RSCALE-REF1134 RSCALE)
                                            (RCONDE-REF1137 RCONDE)
                                            (RCONDV-REF1138 RCONDV)
                                            (WORK-REF1139 WORK)
                                            (RWORK-REF1141 RWORK)
                                            (IWORK-REF1142 IWORK)
                                            (BWORK-REF1143 BWORK))
      (%%CGGEVX BALANC JOBVL JOBVR SENSE N-REF1120 A-REF1121 LDA-REF1122
                B-REF1123 LDB-REF1124 ALPHA-REF1125 BETA-REF1126 VL-REF1127
                LDVL-REF1128 VR-REF1129 LDVR-REF1130 ILO-REF1131 IHI-REF1132
                LSCALE-REF1133 RSCALE-REF1134 ABNRM-REF1135 BBNRM-REF1136
                RCONDE-REF1137 RCONDV-REF1138 WORK-REF1139 LWORK-REF1140
                RWORK-REF1141 IWORK-REF1142 BWORK-REF1143 INFO-REF1144))))

(CFFI:DEFCFUN ("cggglm_" %%CGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (D :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGGLM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1145 ':INT32) (M-REF1146 ':INT32)
                              (P-REF1147 ':INT32) (LDA-REF1149 ':INT32)
                              (LDB-REF1151 ':INT32) (LWORK-REF1156 ':INT32)
                              (INFO-REF1157 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1145 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1146 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1147 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1149 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1151 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1156 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1157 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1148 A) (B-REF1150 B)
                                            (D-REF1152 D) (X-REF1153 X)
                                            (Y-REF1154 Y) (WORK-REF1155 WORK))
      (%%CGGGLM N-REF1145 M-REF1146 P-REF1147 A-REF1148 LDA-REF1149 B-REF1150
                LDB-REF1151 D-REF1152 X-REF1153 Y-REF1154 WORK-REF1155
                LWORK-REF1156 INFO-REF1157))))

(CFFI:DEFCFUN ("cgghd3_" %%CGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGHD3
                   (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGHD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1160 ':INT32) (ILO-REF1161 ':INT32)
                              (IHI-REF1162 ':INT32) (LDA-REF1164 ':INT32)
                              (LDB-REF1166 ':INT32) (LDQ-REF1168 ':INT32)
                              (LDZ-REF1170 ':INT32) (LWORK-REF1172 ':INT32)
                              (INFO-REF1173 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1160 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1161 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1162 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1164 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1166 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1168 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1170 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1172 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1173 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1163 A) (B-REF1165 B)
                                            (Q-REF1167 Q) (Z-REF1169 Z)
                                            (WORK-REF1171 WORK))
      (%%CGGHD3 COMPQ COMPZ N-REF1160 ILO-REF1161 IHI-REF1162 A-REF1163
                LDA-REF1164 B-REF1165 LDB-REF1166 Q-REF1167 LDQ-REF1168
                Z-REF1169 LDZ-REF1170 WORK-REF1171 LWORK-REF1172
                INFO-REF1173))))

(CFFI:DEFCFUN ("cgghrd_" %%CGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGHRD (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGHRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1176 ':INT32) (ILO-REF1177 ':INT32)
                              (IHI-REF1178 ':INT32) (LDA-REF1180 ':INT32)
                              (LDB-REF1182 ':INT32) (LDQ-REF1184 ':INT32)
                              (LDZ-REF1186 ':INT32) (INFO-REF1187 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1176 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1177 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1178 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1180 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1182 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1184 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1186 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1187 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1179 A) (B-REF1181 B)
                                            (Q-REF1183 Q) (Z-REF1185 Z))
      (%%CGGHRD COMPQ COMPZ N-REF1176 ILO-REF1177 IHI-REF1178 A-REF1179
                LDA-REF1180 B-REF1181 LDB-REF1182 Q-REF1183 LDQ-REF1184
                Z-REF1185 LDZ-REF1186 INFO-REF1187))))

(CFFI:DEFCFUN ("cgglse_" %%CGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (D :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGLSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1188 ':INT32) (N-REF1189 ':INT32)
                              (P-REF1190 ':INT32) (LDA-REF1192 ':INT32)
                              (LDB-REF1194 ':INT32) (LWORK-REF1199 ':INT32)
                              (INFO-REF1200 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1188 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1189 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1190 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1192 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1194 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1199 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1200 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1191 A) (B-REF1193 B)
                                            (C-REF1195 C) (D-REF1196 D)
                                            (X-REF1197 X) (WORK-REF1198 WORK))
      (%%CGGLSE M-REF1188 N-REF1189 P-REF1190 A-REF1191 LDA-REF1192 B-REF1193
                LDB-REF1194 C-REF1195 D-REF1196 X-REF1197 WORK-REF1198
                LWORK-REF1199 INFO-REF1200))))

(CFFI:DEFCFUN ("cggqrf_" %%CGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGQRF (N M P A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1201 ':INT32) (M-REF1202 ':INT32)
                              (P-REF1203 ':INT32) (LDA-REF1205 ':INT32)
                              (LDB-REF1208 ':INT32) (LWORK-REF1211 ':INT32)
                              (INFO-REF1212 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1201 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1202 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1203 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1205 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1208 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1211 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1212 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1204 A) (TAUA-REF1206 TAUA)
                                            (B-REF1207 B) (TAUB-REF1209 TAUB)
                                            (WORK-REF1210 WORK))
      (%%CGGQRF N-REF1201 M-REF1202 P-REF1203 A-REF1204 LDA-REF1205
                TAUA-REF1206 B-REF1207 LDB-REF1208 TAUB-REF1209 WORK-REF1210
                LWORK-REF1211 INFO-REF1212))))

(CFFI:DEFCFUN ("cggrqf_" %%CGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGRQF (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGRQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1213 ':INT32) (P-REF1214 ':INT32)
                              (N-REF1215 ':INT32) (LDA-REF1217 ':INT32)
                              (LDB-REF1220 ':INT32) (LWORK-REF1223 ':INT32)
                              (INFO-REF1224 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1213 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1214 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1215 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1217 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1220 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1223 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1224 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1216 A) (TAUA-REF1218 TAUA)
                                            (B-REF1219 B) (TAUB-REF1221 TAUB)
                                            (WORK-REF1222 WORK))
      (%%CGGRQF M-REF1213 P-REF1214 N-REF1215 A-REF1216 LDA-REF1217
                TAUA-REF1218 B-REF1219 LDB-REF1220 TAUB-REF1221 WORK-REF1222
                LWORK-REF1223 INFO-REF1224))))

(CFFI:DEFCFUN ("cggsvd3_" %%CGGSVD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGSVD3
                   (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV
                    Q LDQ WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGSVD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1228 ':INT32) (N-REF1229 ':INT32)
                              (P-REF1230 ':INT32) (K-REF1231 ':INT32)
                              (L-REF1232 ':INT32) (LDA-REF1234 ':INT32)
                              (LDB-REF1236 ':INT32) (LDU-REF1240 ':INT32)
                              (LDV-REF1242 ':INT32) (LDQ-REF1244 ':INT32)
                              (LWORK-REF1246 ':INT32) (INFO-REF1249 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1228 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1229 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1230 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1231 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF1232 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1234 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1236 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1240 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1242 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1244 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1246 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1249 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1233 A) (B-REF1235 B)
                                            (ALPHA-REF1237 ALPHA)
                                            (BETA-REF1238 BETA) (U-REF1239 U)
                                            (V-REF1241 V) (Q-REF1243 Q)
                                            (WORK-REF1245 WORK)
                                            (RWORK-REF1247 RWORK)
                                            (IWORK-REF1248 IWORK))
      (%%CGGSVD3 JOBU JOBV JOBQ M-REF1228 N-REF1229 P-REF1230 K-REF1231
                 L-REF1232 A-REF1233 LDA-REF1234 B-REF1235 LDB-REF1236
                 ALPHA-REF1237 BETA-REF1238 U-REF1239 LDU-REF1240 V-REF1241
                 LDV-REF1242 Q-REF1243 LDQ-REF1244 WORK-REF1245 LWORK-REF1246
                 RWORK-REF1247 IWORK-REF1248 INFO-REF1249))))

(CFFI:DEFCFUN ("cggsvp3_" %%CGGSVP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (K :POINTER)
  (L :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IWORK :POINTER)
  (RWORK :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGSVP3
                   (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV
                    Q LDQ IWORK RWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGSVP3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1253 ':INT32) (P-REF1254 ':INT32)
                              (N-REF1255 ':INT32) (LDA-REF1257 ':INT32)
                              (LDB-REF1259 ':INT32) (TOLA-REF1260 ':FLOAT)
                              (TOLB-REF1261 ':FLOAT) (K-REF1262 ':INT32)
                              (L-REF1263 ':INT32) (LDU-REF1265 ':INT32)
                              (LDV-REF1267 ':INT32) (LDQ-REF1269 ':INT32)
                              (LWORK-REF1274 ':INT32) (INFO-REF1275 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1253 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1254 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1255 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1257 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1259 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF1260 :FLOAT) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF1261 :FLOAT) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1262 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF1263 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1265 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1267 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1269 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1274 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1275 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1256 A) (B-REF1258 B)
                                            (U-REF1264 U) (V-REF1266 V)
                                            (Q-REF1268 Q) (IWORK-REF1270 IWORK)
                                            (RWORK-REF1271 RWORK)
                                            (TAU-REF1272 TAU)
                                            (WORK-REF1273 WORK))
      (%%CGGSVP3 JOBU JOBV JOBQ M-REF1253 P-REF1254 N-REF1255 A-REF1256
                 LDA-REF1257 B-REF1258 LDB-REF1259 TOLA-REF1260 TOLB-REF1261
                 K-REF1262 L-REF1263 U-REF1264 LDU-REF1265 V-REF1266
                 LDV-REF1267 Q-REF1268 LDQ-REF1269 IWORK-REF1270 RWORK-REF1271
                 TAU-REF1272 WORK-REF1273 LWORK-REF1274 INFO-REF1275))))

(CFFI:DEFCFUN ("cgsvj0_" %%CGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGSVJ0
                   (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGSVJ0)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1277 ':INT32) (N-REF1278 ':INT32)
                              (LDA-REF1280 ':INT32) (MV-REF1283 ':INT32)
                              (LDV-REF1285 ':INT32) (EPS-REF1286 ':FLOAT)
                              (SFMIN-REF1287 ':FLOAT) (TOL-REF1288 ':FLOAT)
                              (NSWEEP-REF1289 ':INT32) (LWORK-REF1291 ':INT32)
                              (INFO-REF1292 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1277 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1278 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1280 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF1283 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1285 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF1286 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF1287 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF1288 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF1289 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1291 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1292 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1279 A) (D-REF1281 D)
                                            (SVA-REF1282 SVA) (V-REF1284 V)
                                            (WORK-REF1290 WORK))
      (%%CGSVJ0 JOBV M-REF1277 N-REF1278 A-REF1279 LDA-REF1280 D-REF1281
                SVA-REF1282 MV-REF1283 V-REF1284 LDV-REF1285 EPS-REF1286
                SFMIN-REF1287 TOL-REF1288 NSWEEP-REF1289 WORK-REF1290
                LWORK-REF1291 INFO-REF1292))))

(CFFI:DEFCFUN ("cgsvj1_" %%CGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGSVJ1
                   (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGSVJ1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1294 ':INT32) (N-REF1295 ':INT32)
                              (N1-REF1296 ':INT32) (LDA-REF1298 ':INT32)
                              (MV-REF1301 ':INT32) (LDV-REF1303 ':INT32)
                              (EPS-REF1304 ':FLOAT) (SFMIN-REF1305 ':FLOAT)
                              (TOL-REF1306 ':FLOAT) (NSWEEP-REF1307 ':INT32)
                              (LWORK-REF1309 ':INT32) (INFO-REF1310 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1294 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1295 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF1296 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1298 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF1301 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1303 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF1304 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF1305 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF1306 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF1307 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1309 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1310 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1297 A) (D-REF1299 D)
                                            (SVA-REF1300 SVA) (V-REF1302 V)
                                            (WORK-REF1308 WORK))
      (%%CGSVJ1 JOBV M-REF1294 N-REF1295 N1-REF1296 A-REF1297 LDA-REF1298
                D-REF1299 SVA-REF1300 MV-REF1301 V-REF1302 LDV-REF1303
                EPS-REF1304 SFMIN-REF1305 TOL-REF1306 NSWEEP-REF1307
                WORK-REF1308 LWORK-REF1309 INFO-REF1310))))

(CFFI:DEFCFUN ("cgtcon_" %%CGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTCON (NORM N DL D DU DU2 IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1312 ':INT32) (ANORM-REF1318 ':FLOAT)
                              (RCOND-REF1319 ':FLOAT) (INFO-REF1321 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1312 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1318 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1319 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1321 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1313 DL) (D-REF1314 D)
                                            (DU-REF1315 DU) (DU2-REF1316 DU2)
                                            (IPIV-REF1317 IPIV)
                                            (WORK-REF1320 WORK))
      (%%CGTCON NORM N-REF1312 DL-REF1313 D-REF1314 DU-REF1315 DU2-REF1316
                IPIV-REF1317 ANORM-REF1318 RCOND-REF1319 WORK-REF1320
                INFO-REF1321))))

(CFFI:DEFCFUN ("cgtrfs_" %%CGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTRFS
                   (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR
                    BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1323 ':INT32) (NRHS-REF1324 ':INT32)
                              (LDB-REF1334 ':INT32) (LDX-REF1336 ':INT32)
                              (INFO-REF1341 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1323 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1324 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1334 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1336 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1341 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1325 DL) (D-REF1326 D)
                                            (DU-REF1327 DU) (DLF-REF1328 DLF)
                                            (DF-REF1329 DF) (DUF-REF1330 DUF)
                                            (DU2-REF1331 DU2)
                                            (IPIV-REF1332 IPIV) (B-REF1333 B)
                                            (X-REF1335 X) (FERR-REF1337 FERR)
                                            (BERR-REF1338 BERR)
                                            (WORK-REF1339 WORK)
                                            (RWORK-REF1340 RWORK))
      (%%CGTRFS TRANS N-REF1323 NRHS-REF1324 DL-REF1325 D-REF1326 DU-REF1327
                DLF-REF1328 DF-REF1329 DUF-REF1330 DU2-REF1331 IPIV-REF1332
                B-REF1333 LDB-REF1334 X-REF1335 LDX-REF1336 FERR-REF1337
                BERR-REF1338 WORK-REF1339 RWORK-REF1340 INFO-REF1341))))

(CFFI:DEFCFUN ("cgtsv_" %%CGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTSV (N NRHS DL D DU B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1342 ':INT32) (NRHS-REF1343 ':INT32)
                              (LDB-REF1348 ':INT32) (INFO-REF1349 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1342 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1343 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1348 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1349 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1344 DL) (D-REF1345 D)
                                            (DU-REF1346 DU) (B-REF1347 B))
      (%%CGTSV N-REF1342 NRHS-REF1343 DL-REF1344 D-REF1345 DU-REF1346 B-REF1347
               LDB-REF1348 INFO-REF1349))))

(CFFI:DEFCFUN ("cgtsvx_" %%CGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTSVX
                   (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1352 ':INT32) (NRHS-REF1353 ':INT32)
                              (LDB-REF1363 ':INT32) (LDX-REF1365 ':INT32)
                              (RCOND-REF1366 ':FLOAT) (INFO-REF1371 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1352 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1353 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1363 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1365 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1366 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1371 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1354 DL) (D-REF1355 D)
                                            (DU-REF1356 DU) (DLF-REF1357 DLF)
                                            (DF-REF1358 DF) (DUF-REF1359 DUF)
                                            (DU2-REF1360 DU2)
                                            (IPIV-REF1361 IPIV) (B-REF1362 B)
                                            (X-REF1364 X) (FERR-REF1367 FERR)
                                            (BERR-REF1368 BERR)
                                            (WORK-REF1369 WORK)
                                            (RWORK-REF1370 RWORK))
      (%%CGTSVX FACT TRANS N-REF1352 NRHS-REF1353 DL-REF1354 D-REF1355
                DU-REF1356 DLF-REF1357 DF-REF1358 DUF-REF1359 DU2-REF1360
                IPIV-REF1361 B-REF1362 LDB-REF1363 X-REF1364 LDX-REF1365
                RCOND-REF1366 FERR-REF1367 BERR-REF1368 WORK-REF1369
                RWORK-REF1370 INFO-REF1371))))

(CFFI:DEFCFUN ("cgttrf_" %%CGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1372 ':INT32) (INFO-REF1378 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1372 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1378 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1373 DL) (D-REF1374 D)
                                            (DU-REF1375 DU) (DU2-REF1376 DU2)
                                            (IPIV-REF1377 IPIV))
      (%%CGTTRF N-REF1372 DL-REF1373 D-REF1374 DU-REF1375 DU2-REF1376
                IPIV-REF1377 INFO-REF1378))))

(CFFI:DEFCFUN ("cgttrs_" %%CGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1380 ':INT32) (NRHS-REF1381 ':INT32)
                              (LDB-REF1388 ':INT32) (INFO-REF1389 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1380 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1381 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1388 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1389 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1382 DL) (D-REF1383 D)
                                            (DU-REF1384 DU) (DU2-REF1385 DU2)
                                            (IPIV-REF1386 IPIV) (B-REF1387 B))
      (%%CGTTRS TRANS N-REF1380 NRHS-REF1381 DL-REF1382 D-REF1383 DU-REF1384
                DU2-REF1385 IPIV-REF1386 B-REF1387 LDB-REF1388 INFO-REF1389))))

(CFFI:DEFCFUN ("cgtts2_" %%CGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITRANS :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF1390 ':INT32) (N-REF1391 ':INT32)
                              (NRHS-REF1392 ':INT32) (LDB-REF1399 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF1390 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1391 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1392 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1399 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1393 DL) (D-REF1394 D)
                                            (DU-REF1395 DU) (DU2-REF1396 DU2)
                                            (IPIV-REF1397 IPIV) (B-REF1398 B))
      (%%CGTTS2 ITRANS-REF1390 N-REF1391 NRHS-REF1392 DL-REF1393 D-REF1394
                DU-REF1395 DU2-REF1396 IPIV-REF1397 B-REF1398 LDB-REF1399))))

(CFFI:DEFCFUN ("chb2st_kernels_" %%CHB2ST_KERNELS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WANTZ :POINTER)
  (TTYPE :POINTER)
  (ST :POINTER)
  (ED :POINTER)
  (SWEEP :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (IB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CHB2ST_KERNELS
                   (UPLO WANTZ TTYPE ST ED SWEEP N NB IB A LDA V TAU LDVT WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHB2ST_KERNELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SWEEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF1401 ':INT32) (TTYPE-REF1402 ':INT32)
                              (ST-REF1403 ':INT32) (ED-REF1404 ':INT32)
                              (SWEEP-REF1405 ':INT32) (N-REF1406 ':INT32)
                              (NB-REF1407 ':INT32) (IB-REF1408 ':INT32)
                              (LDA-REF1410 ':INT32) (LDVT-REF1413 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF1401 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF1402 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF1403 :INT32) ST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF1404 :INT32) ED)
    (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF1405 :INT32) SWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1406 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF1407 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF1408 :INT32) IB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1410 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF1413 :INT32) LDVT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1409 A) (V-REF1411 V)
                                            (TAU-REF1412 TAU)
                                            (WORK-REF1414 WORK))
      (%%CHB2ST_KERNELS UPLO WANTZ-REF1401 TTYPE-REF1402 ST-REF1403 ED-REF1404
                        SWEEP-REF1405 N-REF1406 NB-REF1407 IB-REF1408 A-REF1409
                        LDA-REF1410 V-REF1411 TAU-REF1412 LDVT-REF1413
                        WORK-REF1414))))

(CFFI:DEFCFUN ("chbev_" %%CHBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEV (JOBZ UPLO N KD AB LDAB W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1417 ':INT32) (KD-REF1418 ':INT32)
                              (LDAB-REF1420 ':INT32) (LDZ-REF1423 ':INT32)
                              (INFO-REF1426 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1417 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1418 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1420 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1423 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1426 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1419 AB) (W-REF1421 W)
                                            (Z-REF1422 Z) (WORK-REF1424 WORK)
                                            (RWORK-REF1425 RWORK))
      (%%CHBEV JOBZ UPLO N-REF1417 KD-REF1418 AB-REF1419 LDAB-REF1420 W-REF1421
               Z-REF1422 LDZ-REF1423 WORK-REF1424 RWORK-REF1425 INFO-REF1426))))

(CFFI:DEFCFUN ("chbev_2stage_" %%CHBEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEV_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1429 ':INT32) (KD-REF1430 ':INT32)
                              (LDAB-REF1432 ':INT32) (LDZ-REF1435 ':INT32)
                              (LWORK-REF1437 ':INT32) (INFO-REF1439 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1429 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1430 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1432 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1435 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1437 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1439 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1431 AB) (W-REF1433 W)
                                            (Z-REF1434 Z) (WORK-REF1436 WORK)
                                            (RWORK-REF1438 RWORK))
      (%%CHBEV_2STAGE JOBZ UPLO N-REF1429 KD-REF1430 AB-REF1431 LDAB-REF1432
                      W-REF1433 Z-REF1434 LDZ-REF1435 WORK-REF1436
                      LWORK-REF1437 RWORK-REF1438 INFO-REF1439))))

(CFFI:DEFCFUN ("chbevd_" %%CHBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEVD
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1442 ':INT32) (KD-REF1443 ':INT32)
                              (LDAB-REF1445 ':INT32) (LDZ-REF1448 ':INT32)
                              (LWORK-REF1450 ':INT32) (LRWORK-REF1452 ':INT32)
                              (LIWORK-REF1454 ':INT32) (INFO-REF1455 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1442 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1443 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1445 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1448 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1450 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1452 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1454 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1455 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1444 AB) (W-REF1446 W)
                                            (Z-REF1447 Z) (WORK-REF1449 WORK)
                                            (RWORK-REF1451 RWORK)
                                            (IWORK-REF1453 IWORK))
      (%%CHBEVD JOBZ UPLO N-REF1442 KD-REF1443 AB-REF1444 LDAB-REF1445
                W-REF1446 Z-REF1447 LDZ-REF1448 WORK-REF1449 LWORK-REF1450
                RWORK-REF1451 LRWORK-REF1452 IWORK-REF1453 LIWORK-REF1454
                INFO-REF1455))))

(CFFI:DEFCFUN ("chbevd_2stage_" %%CHBEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEVD_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1458 ':INT32) (KD-REF1459 ':INT32)
                              (LDAB-REF1461 ':INT32) (LDZ-REF1464 ':INT32)
                              (LWORK-REF1466 ':INT32) (LRWORK-REF1468 ':INT32)
                              (LIWORK-REF1470 ':INT32) (INFO-REF1471 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1458 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1459 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1461 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1464 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1466 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1468 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1470 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1471 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1460 AB) (W-REF1462 W)
                                            (Z-REF1463 Z) (WORK-REF1465 WORK)
                                            (RWORK-REF1467 RWORK)
                                            (IWORK-REF1469 IWORK))
      (%%CHBEVD_2STAGE JOBZ UPLO N-REF1458 KD-REF1459 AB-REF1460 LDAB-REF1461
                       W-REF1462 Z-REF1463 LDZ-REF1464 WORK-REF1465
                       LWORK-REF1466 RWORK-REF1467 LRWORK-REF1468 IWORK-REF1469
                       LIWORK-REF1470 INFO-REF1471))))

(CFFI:DEFCFUN ("chbevx_" %%CHBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEVX
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1475 ':INT32) (KD-REF1476 ':INT32)
                              (LDAB-REF1478 ':INT32) (LDQ-REF1480 ':INT32)
                              (VL-REF1481 ':FLOAT) (VU-REF1482 ':FLOAT)
                              (IL-REF1483 ':INT32) (IU-REF1484 ':INT32)
                              (ABSTOL-REF1485 ':FLOAT) (M-REF1486 ':INT32)
                              (LDZ-REF1489 ':INT32) (INFO-REF1494 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1475 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1476 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1478 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1480 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1481 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1482 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1483 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1484 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1485 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1486 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1489 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1494 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1477 AB) (Q-REF1479 Q)
                                            (W-REF1487 W) (Z-REF1488 Z)
                                            (WORK-REF1490 WORK)
                                            (RWORK-REF1491 RWORK)
                                            (IWORK-REF1492 IWORK)
                                            (IFAIL-REF1493 IFAIL))
      (%%CHBEVX JOBZ RANGE UPLO N-REF1475 KD-REF1476 AB-REF1477 LDAB-REF1478
                Q-REF1479 LDQ-REF1480 VL-REF1481 VU-REF1482 IL-REF1483
                IU-REF1484 ABSTOL-REF1485 M-REF1486 W-REF1487 Z-REF1488
                LDZ-REF1489 WORK-REF1490 RWORK-REF1491 IWORK-REF1492
                IFAIL-REF1493 INFO-REF1494))))

(CFFI:DEFCFUN ("chbevx_2stage_" %%CHBEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEVX_2STAGE
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1498 ':INT32) (KD-REF1499 ':INT32)
                              (LDAB-REF1501 ':INT32) (LDQ-REF1503 ':INT32)
                              (VL-REF1504 ':FLOAT) (VU-REF1505 ':FLOAT)
                              (IL-REF1506 ':INT32) (IU-REF1507 ':INT32)
                              (ABSTOL-REF1508 ':FLOAT) (M-REF1509 ':INT32)
                              (LDZ-REF1512 ':INT32) (LWORK-REF1514 ':INT32)
                              (INFO-REF1518 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1498 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1499 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1501 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1503 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1504 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1505 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1506 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1507 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1508 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1509 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1512 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1514 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1518 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1500 AB) (Q-REF1502 Q)
                                            (W-REF1510 W) (Z-REF1511 Z)
                                            (WORK-REF1513 WORK)
                                            (RWORK-REF1515 RWORK)
                                            (IWORK-REF1516 IWORK)
                                            (IFAIL-REF1517 IFAIL))
      (%%CHBEVX_2STAGE JOBZ RANGE UPLO N-REF1498 KD-REF1499 AB-REF1500
                       LDAB-REF1501 Q-REF1502 LDQ-REF1503 VL-REF1504 VU-REF1505
                       IL-REF1506 IU-REF1507 ABSTOL-REF1508 M-REF1509 W-REF1510
                       Z-REF1511 LDZ-REF1512 WORK-REF1513 LWORK-REF1514
                       RWORK-REF1515 IWORK-REF1516 IFAIL-REF1517
                       INFO-REF1518))))

(CFFI:DEFCFUN ("chbgst_" %%CHBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBGST
                   (VECT UPLO N KA KB AB LDAB BB LDBB X LDX WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1521 ':INT32) (KA-REF1522 ':INT32)
                              (KB-REF1523 ':INT32) (LDAB-REF1525 ':INT32)
                              (LDBB-REF1527 ':INT32) (LDX-REF1529 ':INT32)
                              (INFO-REF1532 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1521 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1522 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1523 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1525 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1527 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1529 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1532 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1524 AB) (BB-REF1526 BB)
                                            (X-REF1528 X) (WORK-REF1530 WORK)
                                            (RWORK-REF1531 RWORK))
      (%%CHBGST VECT UPLO N-REF1521 KA-REF1522 KB-REF1523 AB-REF1524
                LDAB-REF1525 BB-REF1526 LDBB-REF1527 X-REF1528 LDX-REF1529
                WORK-REF1530 RWORK-REF1531 INFO-REF1532))))

(CFFI:DEFCFUN ("chbgv_" %%CHBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBGV
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1535 ':INT32) (KA-REF1536 ':INT32)
                              (KB-REF1537 ':INT32) (LDAB-REF1539 ':INT32)
                              (LDBB-REF1541 ':INT32) (LDZ-REF1544 ':INT32)
                              (INFO-REF1547 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1535 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1536 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1537 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1539 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1541 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1544 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1547 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1538 AB) (BB-REF1540 BB)
                                            (W-REF1542 W) (Z-REF1543 Z)
                                            (WORK-REF1545 WORK)
                                            (RWORK-REF1546 RWORK))
      (%%CHBGV JOBZ UPLO N-REF1535 KA-REF1536 KB-REF1537 AB-REF1538
               LDAB-REF1539 BB-REF1540 LDBB-REF1541 W-REF1542 Z-REF1543
               LDZ-REF1544 WORK-REF1545 RWORK-REF1546 INFO-REF1547))))

(CFFI:DEFCFUN ("chbgvd_" %%CHBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBGVD
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK RWORK
                    LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1550 ':INT32) (KA-REF1551 ':INT32)
                              (KB-REF1552 ':INT32) (LDAB-REF1554 ':INT32)
                              (LDBB-REF1556 ':INT32) (LDZ-REF1559 ':INT32)
                              (LWORK-REF1561 ':INT32) (LRWORK-REF1563 ':INT32)
                              (LIWORK-REF1565 ':INT32) (INFO-REF1566 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1550 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1551 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1552 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1554 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1556 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1559 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1561 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1563 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1565 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1566 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1553 AB) (BB-REF1555 BB)
                                            (W-REF1557 W) (Z-REF1558 Z)
                                            (WORK-REF1560 WORK)
                                            (RWORK-REF1562 RWORK)
                                            (IWORK-REF1564 IWORK))
      (%%CHBGVD JOBZ UPLO N-REF1550 KA-REF1551 KB-REF1552 AB-REF1553
                LDAB-REF1554 BB-REF1555 LDBB-REF1556 W-REF1557 Z-REF1558
                LDZ-REF1559 WORK-REF1560 LWORK-REF1561 RWORK-REF1562
                LRWORK-REF1563 IWORK-REF1564 LIWORK-REF1565 INFO-REF1566))))

(CFFI:DEFCFUN ("chbgvx_" %%CHBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBGVX
                   (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU
                    ABSTOL M W Z LDZ WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1570 ':INT32) (KA-REF1571 ':INT32)
                              (KB-REF1572 ':INT32) (LDAB-REF1574 ':INT32)
                              (LDBB-REF1576 ':INT32) (LDQ-REF1578 ':INT32)
                              (VL-REF1579 ':FLOAT) (VU-REF1580 ':FLOAT)
                              (IL-REF1581 ':INT32) (IU-REF1582 ':INT32)
                              (ABSTOL-REF1583 ':FLOAT) (M-REF1584 ':INT32)
                              (LDZ-REF1587 ':INT32) (INFO-REF1592 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1570 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1571 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1572 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1574 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1576 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1578 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1579 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1580 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1581 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1582 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1583 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1584 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1587 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1592 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1573 AB) (BB-REF1575 BB)
                                            (Q-REF1577 Q) (W-REF1585 W)
                                            (Z-REF1586 Z) (WORK-REF1588 WORK)
                                            (RWORK-REF1589 RWORK)
                                            (IWORK-REF1590 IWORK)
                                            (IFAIL-REF1591 IFAIL))
      (%%CHBGVX JOBZ RANGE UPLO N-REF1570 KA-REF1571 KB-REF1572 AB-REF1573
                LDAB-REF1574 BB-REF1575 LDBB-REF1576 Q-REF1577 LDQ-REF1578
                VL-REF1579 VU-REF1580 IL-REF1581 IU-REF1582 ABSTOL-REF1583
                M-REF1584 W-REF1585 Z-REF1586 LDZ-REF1587 WORK-REF1588
                RWORK-REF1589 IWORK-REF1590 IFAIL-REF1591 INFO-REF1592))))

(CFFI:DEFCFUN ("chbtrd_" %%CHBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBTRD (VECT UPLO N KD AB LDAB D E Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1595 ':INT32) (KD-REF1596 ':INT32)
                              (LDAB-REF1598 ':INT32) (LDQ-REF1602 ':INT32)
                              (INFO-REF1604 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1595 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1596 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1598 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1602 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1604 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1597 AB) (D-REF1599 D)
                                            (E-REF1600 E) (Q-REF1601 Q)
                                            (WORK-REF1603 WORK))
      (%%CHBTRD VECT UPLO N-REF1595 KD-REF1596 AB-REF1597 LDAB-REF1598
                D-REF1599 E-REF1600 Q-REF1601 LDQ-REF1602 WORK-REF1603
                INFO-REF1604))))

(CFFI:DEFCFUN ("checon_" %%CHECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHECON (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1606 ':INT32) (LDA-REF1608 ':INT32)
                              (ANORM-REF1610 ':FLOAT) (RCOND-REF1611 ':FLOAT)
                              (INFO-REF1613 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1606 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1608 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1610 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1611 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1613 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1607 A) (IPIV-REF1609 IPIV)
                                            (WORK-REF1612 WORK))
      (%%CHECON UPLO N-REF1606 A-REF1607 LDA-REF1608 IPIV-REF1609 ANORM-REF1610
                RCOND-REF1611 WORK-REF1612 INFO-REF1613))))

(CFFI:DEFCFUN ("checon_3_" %%CHECON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHECON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHECON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1615 ':INT32) (LDA-REF1617 ':INT32)
                              (ANORM-REF1620 ':FLOAT) (RCOND-REF1621 ':FLOAT)
                              (INFO-REF1623 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1615 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1617 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1620 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1621 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1623 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1616 A) (E-REF1618 E)
                                            (IPIV-REF1619 IPIV)
                                            (WORK-REF1622 WORK))
      (%%CHECON_3 UPLO N-REF1615 A-REF1616 LDA-REF1617 E-REF1618 IPIV-REF1619
                  ANORM-REF1620 RCOND-REF1621 WORK-REF1622 INFO-REF1623))))

(CFFI:DEFCFUN ("checon_rook_" %%CHECON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHECON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHECON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1625 ':INT32) (LDA-REF1627 ':INT32)
                              (ANORM-REF1629 ':FLOAT) (RCOND-REF1630 ':FLOAT)
                              (INFO-REF1632 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1625 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1627 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1629 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1630 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1632 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1626 A) (IPIV-REF1628 IPIV)
                                            (WORK-REF1631 WORK))
      (%%CHECON_ROOK UPLO N-REF1625 A-REF1626 LDA-REF1627 IPIV-REF1628
                     ANORM-REF1629 RCOND-REF1630 WORK-REF1631 INFO-REF1632))))

(CFFI:DEFCFUN ("cheequb_" %%CHEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1634 ':INT32) (LDA-REF1636 ':INT32)
                              (SCOND-REF1638 ':FLOAT) (AMAX-REF1639 ':FLOAT)
                              (INFO-REF1641 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1634 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1636 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF1638 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF1639 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1641 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1635 A) (S-REF1637 S)
                                            (WORK-REF1640 WORK))
      (%%CHEEQUB UPLO N-REF1634 A-REF1635 LDA-REF1636 S-REF1637 SCOND-REF1638
                 AMAX-REF1639 WORK-REF1640 INFO-REF1641))))

(CFFI:DEFCFUN ("cheev_" %%CHEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEV (JOBZ UPLO N A LDA W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1644 ':INT32) (LDA-REF1646 ':INT32)
                              (LWORK-REF1649 ':INT32) (INFO-REF1651 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1644 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1646 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1649 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1651 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1645 A) (W-REF1647 W)
                                            (WORK-REF1648 WORK)
                                            (RWORK-REF1650 RWORK))
      (%%CHEEV JOBZ UPLO N-REF1644 A-REF1645 LDA-REF1646 W-REF1647 WORK-REF1648
               LWORK-REF1649 RWORK-REF1650 INFO-REF1651))))

(CFFI:DEFCFUN ("cheev_2stage_" %%CHEEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEV_2STAGE (JOBZ UPLO N A LDA W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1654 ':INT32) (LDA-REF1656 ':INT32)
                              (LWORK-REF1659 ':INT32) (INFO-REF1661 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1654 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1656 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1659 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1661 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1655 A) (W-REF1657 W)
                                            (WORK-REF1658 WORK)
                                            (RWORK-REF1660 RWORK))
      (%%CHEEV_2STAGE JOBZ UPLO N-REF1654 A-REF1655 LDA-REF1656 W-REF1657
                      WORK-REF1658 LWORK-REF1659 RWORK-REF1660 INFO-REF1661))))

(CFFI:DEFCFUN ("cheevd_" %%CHEEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVD
                   (JOBZ UPLO N A LDA W WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1664 ':INT32) (LDA-REF1666 ':INT32)
                              (LWORK-REF1669 ':INT32) (LRWORK-REF1671 ':INT32)
                              (LIWORK-REF1673 ':INT32) (INFO-REF1674 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1664 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1666 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1669 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1671 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1673 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1674 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1665 A) (W-REF1667 W)
                                            (WORK-REF1668 WORK)
                                            (RWORK-REF1670 RWORK)
                                            (IWORK-REF1672 IWORK))
      (%%CHEEVD JOBZ UPLO N-REF1664 A-REF1665 LDA-REF1666 W-REF1667
                WORK-REF1668 LWORK-REF1669 RWORK-REF1670 LRWORK-REF1671
                IWORK-REF1672 LIWORK-REF1673 INFO-REF1674))))

(CFFI:DEFCFUN ("cheevd_2stage_" %%CHEEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVD_2STAGE
                   (JOBZ UPLO N A LDA W WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1677 ':INT32) (LDA-REF1679 ':INT32)
                              (LWORK-REF1682 ':INT32) (LRWORK-REF1684 ':INT32)
                              (LIWORK-REF1686 ':INT32) (INFO-REF1687 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1677 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1679 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1682 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1684 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1686 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1687 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1678 A) (W-REF1680 W)
                                            (WORK-REF1681 WORK)
                                            (RWORK-REF1683 RWORK)
                                            (IWORK-REF1685 IWORK))
      (%%CHEEVD_2STAGE JOBZ UPLO N-REF1677 A-REF1678 LDA-REF1679 W-REF1680
                       WORK-REF1681 LWORK-REF1682 RWORK-REF1683 LRWORK-REF1684
                       IWORK-REF1685 LIWORK-REF1686 INFO-REF1687))))

(CFFI:DEFCFUN ("cheevr_" %%CHEEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVR
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1691 ':INT32) (LDA-REF1693 ':INT32)
                              (VL-REF1694 ':FLOAT) (VU-REF1695 ':FLOAT)
                              (IL-REF1696 ':INT32) (IU-REF1697 ':INT32)
                              (ABSTOL-REF1698 ':FLOAT) (M-REF1699 ':INT32)
                              (LDZ-REF1702 ':INT32) (LWORK-REF1705 ':INT32)
                              (LRWORK-REF1707 ':INT32) (LIWORK-REF1709 ':INT32)
                              (INFO-REF1710 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1691 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1693 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1694 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1695 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1696 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1697 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1698 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1699 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1702 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1705 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1707 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1709 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1710 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1692 A) (W-REF1700 W)
                                            (Z-REF1701 Z)
                                            (ISUPPZ-REF1703 ISUPPZ)
                                            (WORK-REF1704 WORK)
                                            (RWORK-REF1706 RWORK)
                                            (IWORK-REF1708 IWORK))
      (%%CHEEVR JOBZ RANGE UPLO N-REF1691 A-REF1692 LDA-REF1693 VL-REF1694
                VU-REF1695 IL-REF1696 IU-REF1697 ABSTOL-REF1698 M-REF1699
                W-REF1700 Z-REF1701 LDZ-REF1702 ISUPPZ-REF1703 WORK-REF1704
                LWORK-REF1705 RWORK-REF1706 LRWORK-REF1707 IWORK-REF1708
                LIWORK-REF1709 INFO-REF1710))))

(CFFI:DEFCFUN ("cheevr_2stage_" %%CHEEVR_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVR_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVR_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1714 ':INT32) (LDA-REF1716 ':INT32)
                              (VL-REF1717 ':FLOAT) (VU-REF1718 ':FLOAT)
                              (IL-REF1719 ':INT32) (IU-REF1720 ':INT32)
                              (ABSTOL-REF1721 ':FLOAT) (M-REF1722 ':INT32)
                              (LDZ-REF1725 ':INT32) (LWORK-REF1728 ':INT32)
                              (LRWORK-REF1730 ':INT32) (LIWORK-REF1732 ':INT32)
                              (INFO-REF1733 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1716 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1717 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1718 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1719 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1720 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1721 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1722 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1725 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1728 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1730 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1732 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1733 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1715 A) (W-REF1723 W)
                                            (Z-REF1724 Z)
                                            (ISUPPZ-REF1726 ISUPPZ)
                                            (WORK-REF1727 WORK)
                                            (RWORK-REF1729 RWORK)
                                            (IWORK-REF1731 IWORK))
      (%%CHEEVR_2STAGE JOBZ RANGE UPLO N-REF1714 A-REF1715 LDA-REF1716
                       VL-REF1717 VU-REF1718 IL-REF1719 IU-REF1720
                       ABSTOL-REF1721 M-REF1722 W-REF1723 Z-REF1724 LDZ-REF1725
                       ISUPPZ-REF1726 WORK-REF1727 LWORK-REF1728 RWORK-REF1729
                       LRWORK-REF1730 IWORK-REF1731 LIWORK-REF1732
                       INFO-REF1733))))

(CFFI:DEFCFUN ("cheevx_" %%CHEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVX
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1737 ':INT32) (LDA-REF1739 ':INT32)
                              (VL-REF1740 ':FLOAT) (VU-REF1741 ':FLOAT)
                              (IL-REF1742 ':INT32) (IU-REF1743 ':INT32)
                              (ABSTOL-REF1744 ':FLOAT) (M-REF1745 ':INT32)
                              (LDZ-REF1748 ':INT32) (LWORK-REF1750 ':INT32)
                              (INFO-REF1754 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1737 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1739 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1740 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1741 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1742 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1743 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1744 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1745 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1748 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1750 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1754 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1738 A) (W-REF1746 W)
                                            (Z-REF1747 Z) (WORK-REF1749 WORK)
                                            (RWORK-REF1751 RWORK)
                                            (IWORK-REF1752 IWORK)
                                            (IFAIL-REF1753 IFAIL))
      (%%CHEEVX JOBZ RANGE UPLO N-REF1737 A-REF1738 LDA-REF1739 VL-REF1740
                VU-REF1741 IL-REF1742 IU-REF1743 ABSTOL-REF1744 M-REF1745
                W-REF1746 Z-REF1747 LDZ-REF1748 WORK-REF1749 LWORK-REF1750
                RWORK-REF1751 IWORK-REF1752 IFAIL-REF1753 INFO-REF1754))))

(CFFI:DEFCFUN ("cheevx_2stage_" %%CHEEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVX_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1758 ':INT32) (LDA-REF1760 ':INT32)
                              (VL-REF1761 ':FLOAT) (VU-REF1762 ':FLOAT)
                              (IL-REF1763 ':INT32) (IU-REF1764 ':INT32)
                              (ABSTOL-REF1765 ':FLOAT) (M-REF1766 ':INT32)
                              (LDZ-REF1769 ':INT32) (LWORK-REF1771 ':INT32)
                              (INFO-REF1775 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1758 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1760 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1761 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1762 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1763 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1764 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1765 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1766 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1769 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1771 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1775 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1759 A) (W-REF1767 W)
                                            (Z-REF1768 Z) (WORK-REF1770 WORK)
                                            (RWORK-REF1772 RWORK)
                                            (IWORK-REF1773 IWORK)
                                            (IFAIL-REF1774 IFAIL))
      (%%CHEEVX_2STAGE JOBZ RANGE UPLO N-REF1758 A-REF1759 LDA-REF1760
                       VL-REF1761 VU-REF1762 IL-REF1763 IU-REF1764
                       ABSTOL-REF1765 M-REF1766 W-REF1767 Z-REF1768 LDZ-REF1769
                       WORK-REF1770 LWORK-REF1771 RWORK-REF1772 IWORK-REF1773
                       IFAIL-REF1774 INFO-REF1775))))

(CFFI:DEFCFUN ("chegs2_" %%CHEGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1776 ':INT32) (N-REF1778 ':INT32)
                              (LDA-REF1780 ':INT32) (LDB-REF1782 ':INT32)
                              (INFO-REF1783 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1776 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1778 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1780 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1782 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1783 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1779 A) (B-REF1781 B))
      (%%CHEGS2 ITYPE-REF1776 UPLO N-REF1778 A-REF1779 LDA-REF1780 B-REF1781
                LDB-REF1782 INFO-REF1783))))

(CFFI:DEFCFUN ("chegst_" %%CHEGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1784 ':INT32) (N-REF1786 ':INT32)
                              (LDA-REF1788 ':INT32) (LDB-REF1790 ':INT32)
                              (INFO-REF1791 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1784 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1786 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1788 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1790 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1791 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1787 A) (B-REF1789 B))
      (%%CHEGST ITYPE-REF1784 UPLO N-REF1786 A-REF1787 LDA-REF1788 B-REF1789
                LDB-REF1790 INFO-REF1791))))

(CFFI:DEFCFUN ("chegv_" %%CHEGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGV
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1792 ':INT32) (N-REF1795 ':INT32)
                              (LDA-REF1797 ':INT32) (LDB-REF1799 ':INT32)
                              (LWORK-REF1802 ':INT32) (INFO-REF1804 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1792 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1795 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1797 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1799 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1802 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1804 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1796 A) (B-REF1798 B)
                                            (W-REF1800 W) (WORK-REF1801 WORK)
                                            (RWORK-REF1803 RWORK))
      (%%CHEGV ITYPE-REF1792 JOBZ UPLO N-REF1795 A-REF1796 LDA-REF1797
               B-REF1798 LDB-REF1799 W-REF1800 WORK-REF1801 LWORK-REF1802
               RWORK-REF1803 INFO-REF1804))))

(CFFI:DEFCFUN ("chegv_2stage_" %%CHEGV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGV_2STAGE
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGV_2STAGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1805 ':INT32) (N-REF1808 ':INT32)
                              (LDA-REF1810 ':INT32) (LDB-REF1812 ':INT32)
                              (LWORK-REF1815 ':INT32) (INFO-REF1817 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1805 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1808 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1810 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1812 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1815 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1817 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1809 A) (B-REF1811 B)
                                            (W-REF1813 W) (WORK-REF1814 WORK)
                                            (RWORK-REF1816 RWORK))
      (%%CHEGV_2STAGE ITYPE-REF1805 JOBZ UPLO N-REF1808 A-REF1809 LDA-REF1810
                      B-REF1811 LDB-REF1812 W-REF1813 WORK-REF1814
                      LWORK-REF1815 RWORK-REF1816 INFO-REF1817))))

(CFFI:DEFCFUN ("chegvd_" %%CHEGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGVD
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1818 ':INT32) (N-REF1821 ':INT32)
                              (LDA-REF1823 ':INT32) (LDB-REF1825 ':INT32)
                              (LWORK-REF1828 ':INT32) (LRWORK-REF1830 ':INT32)
                              (LIWORK-REF1832 ':INT32) (INFO-REF1833 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1818 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1821 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1823 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1825 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1828 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1830 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1832 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1833 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1822 A) (B-REF1824 B)
                                            (W-REF1826 W) (WORK-REF1827 WORK)
                                            (RWORK-REF1829 RWORK)
                                            (IWORK-REF1831 IWORK))
      (%%CHEGVD ITYPE-REF1818 JOBZ UPLO N-REF1821 A-REF1822 LDA-REF1823
                B-REF1824 LDB-REF1825 W-REF1826 WORK-REF1827 LWORK-REF1828
                RWORK-REF1829 LRWORK-REF1830 IWORK-REF1831 LIWORK-REF1832
                INFO-REF1833))))

(CFFI:DEFCFUN ("chegvx_" %%CHEGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGVX
                   (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W
                    Z LDZ WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1834 ':INT32) (N-REF1838 ':INT32)
                              (LDA-REF1840 ':INT32) (LDB-REF1842 ':INT32)
                              (VL-REF1843 ':FLOAT) (VU-REF1844 ':FLOAT)
                              (IL-REF1845 ':INT32) (IU-REF1846 ':INT32)
                              (ABSTOL-REF1847 ':FLOAT) (M-REF1848 ':INT32)
                              (LDZ-REF1851 ':INT32) (LWORK-REF1853 ':INT32)
                              (INFO-REF1857 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1834 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1838 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1840 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1842 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1843 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1844 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1845 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1846 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1847 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1848 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1851 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1853 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1857 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1839 A) (B-REF1841 B)
                                            (W-REF1849 W) (Z-REF1850 Z)
                                            (WORK-REF1852 WORK)
                                            (RWORK-REF1854 RWORK)
                                            (IWORK-REF1855 IWORK)
                                            (IFAIL-REF1856 IFAIL))
      (%%CHEGVX ITYPE-REF1834 JOBZ RANGE UPLO N-REF1838 A-REF1839 LDA-REF1840
                B-REF1841 LDB-REF1842 VL-REF1843 VU-REF1844 IL-REF1845
                IU-REF1846 ABSTOL-REF1847 M-REF1848 W-REF1849 Z-REF1850
                LDZ-REF1851 WORK-REF1852 LWORK-REF1853 RWORK-REF1854
                IWORK-REF1855 IFAIL-REF1856 INFO-REF1857))))

(CFFI:DEFCFUN ("cherfs_" %%CHERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHERFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1859 ':INT32) (NRHS-REF1860 ':INT32)
                              (LDA-REF1862 ':INT32) (LDAF-REF1864 ':INT32)
                              (LDB-REF1867 ':INT32) (LDX-REF1869 ':INT32)
                              (INFO-REF1874 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1859 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1860 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1862 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1864 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1867 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1869 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1874 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1861 A) (AF-REF1863 AF)
                                            (IPIV-REF1865 IPIV) (B-REF1866 B)
                                            (X-REF1868 X) (FERR-REF1870 FERR)
                                            (BERR-REF1871 BERR)
                                            (WORK-REF1872 WORK)
                                            (RWORK-REF1873 RWORK))
      (%%CHERFS UPLO N-REF1859 NRHS-REF1860 A-REF1861 LDA-REF1862 AF-REF1863
                LDAF-REF1864 IPIV-REF1865 B-REF1866 LDB-REF1867 X-REF1868
                LDX-REF1869 FERR-REF1870 BERR-REF1871 WORK-REF1872
                RWORK-REF1873 INFO-REF1874))))

(CFFI:DEFCFUN ("cherfsx_" %%CHERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHERFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1877 ':INT32) (NRHS-REF1878 ':INT32)
                              (LDA-REF1880 ':INT32) (LDAF-REF1882 ':INT32)
                              (LDB-REF1886 ':INT32) (LDX-REF1888 ':INT32)
                              (RCOND-REF1889 ':FLOAT)
                              (N_ERR_BNDS-REF1891 ':INT32)
                              (NPARAMS-REF1894 ':INT32) (INFO-REF1898 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1877 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1878 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1880 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1882 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1886 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1888 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1889 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF1891 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF1894 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1898 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1879 A) (AF-REF1881 AF)
                                            (IPIV-REF1883 IPIV) (S-REF1884 S)
                                            (B-REF1885 B) (X-REF1887 X)
                                            (BERR-REF1890 BERR)
                                            (ERR_BNDS_NORM-REF1892
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF1893
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF1895 PARAMS)
                                            (WORK-REF1896 WORK)
                                            (RWORK-REF1897 RWORK))
      (%%CHERFSX UPLO EQUED N-REF1877 NRHS-REF1878 A-REF1879 LDA-REF1880
                 AF-REF1881 LDAF-REF1882 IPIV-REF1883 S-REF1884 B-REF1885
                 LDB-REF1886 X-REF1887 LDX-REF1888 RCOND-REF1889 BERR-REF1890
                 N_ERR_BNDS-REF1891 ERR_BNDS_NORM-REF1892 ERR_BNDS_COMP-REF1893
                 NPARAMS-REF1894 PARAMS-REF1895 WORK-REF1896 RWORK-REF1897
                 INFO-REF1898))))

(CFFI:DEFCFUN ("chesv_" %%CHESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1900 ':INT32) (NRHS-REF1901 ':INT32)
                              (LDA-REF1903 ':INT32) (LDB-REF1906 ':INT32)
                              (LWORK-REF1908 ':INT32) (INFO-REF1909 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1900 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1901 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1903 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1906 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1908 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1909 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1902 A) (IPIV-REF1904 IPIV)
                                            (B-REF1905 B) (WORK-REF1907 WORK))
      (%%CHESV UPLO N-REF1900 NRHS-REF1901 A-REF1902 LDA-REF1903 IPIV-REF1904
               B-REF1905 LDB-REF1906 WORK-REF1907 LWORK-REF1908 INFO-REF1909))))

(CFFI:DEFCFUN ("chesv_aa_" %%CHESV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1911 ':INT32) (NRHS-REF1912 ':INT32)
                              (LDA-REF1914 ':INT32) (LDB-REF1917 ':INT32)
                              (LWORK-REF1919 ':INT32) (INFO-REF1920 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1911 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1912 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1914 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1917 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1919 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1920 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1913 A) (IPIV-REF1915 IPIV)
                                            (B-REF1916 B) (WORK-REF1918 WORK))
      (%%CHESV_AA UPLO N-REF1911 NRHS-REF1912 A-REF1913 LDA-REF1914
                  IPIV-REF1915 B-REF1916 LDB-REF1917 WORK-REF1918 LWORK-REF1919
                  INFO-REF1920))))

(CFFI:DEFCFUN ("chesv_aa_2stage_" %%CHESV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1922 ':INT32) (NRHS-REF1923 ':INT32)
                              (LDA-REF1925 ':INT32) (LTB-REF1927 ':INT32)
                              (LDB-REF1931 ':INT32) (LWORK-REF1933 ':INT32)
                              (INFO-REF1934 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1922 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1923 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1925 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF1927 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1931 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1933 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1934 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1924 A) (TB-REF1926 TB)
                                            (IPIV-REF1928 IPIV)
                                            (IPIV2-REF1929 IPIV2) (B-REF1930 B)
                                            (WORK-REF1932 WORK))
      (%%CHESV_AA_2STAGE UPLO N-REF1922 NRHS-REF1923 A-REF1924 LDA-REF1925
                         TB-REF1926 LTB-REF1927 IPIV-REF1928 IPIV2-REF1929
                         B-REF1930 LDB-REF1931 WORK-REF1932 LWORK-REF1933
                         INFO-REF1934))))

(CFFI:DEFCFUN ("chesv_rk_" %%CHESV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1936 ':INT32) (NRHS-REF1937 ':INT32)
                              (LDA-REF1939 ':INT32) (LDB-REF1943 ':INT32)
                              (LWORK-REF1945 ':INT32) (INFO-REF1946 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1936 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1937 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1939 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1943 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1945 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1946 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1938 A) (E-REF1940 E)
                                            (IPIV-REF1941 IPIV) (B-REF1942 B)
                                            (WORK-REF1944 WORK))
      (%%CHESV_RK UPLO N-REF1936 NRHS-REF1937 A-REF1938 LDA-REF1939 E-REF1940
                  IPIV-REF1941 B-REF1942 LDB-REF1943 WORK-REF1944 LWORK-REF1945
                  INFO-REF1946))))

(CFFI:DEFCFUN ("chesv_rook_" %%CHESV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1948 ':INT32) (NRHS-REF1949 ':INT32)
                              (LDA-REF1951 ':INT32) (LDB-REF1954 ':INT32)
                              (LWORK-REF1956 ':INT32) (INFO-REF1957 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1948 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1949 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1951 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1954 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1956 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1957 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1950 A) (IPIV-REF1952 IPIV)
                                            (B-REF1953 B) (WORK-REF1955 WORK))
      (%%CHESV_ROOK UPLO N-REF1948 NRHS-REF1949 A-REF1950 LDA-REF1951
                    IPIV-REF1952 B-REF1953 LDB-REF1954 WORK-REF1955
                    LWORK-REF1956 INFO-REF1957))))

(CFFI:DEFCFUN ("chesvx_" %%CHESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1960 ':INT32) (NRHS-REF1961 ':INT32)
                              (LDA-REF1963 ':INT32) (LDAF-REF1965 ':INT32)
                              (LDB-REF1968 ':INT32) (LDX-REF1970 ':INT32)
                              (RCOND-REF1971 ':FLOAT) (LWORK-REF1975 ':INT32)
                              (INFO-REF1977 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1960 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1961 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1963 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1965 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1968 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1970 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1971 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1975 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1977 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1962 A) (AF-REF1964 AF)
                                            (IPIV-REF1966 IPIV) (B-REF1967 B)
                                            (X-REF1969 X) (FERR-REF1972 FERR)
                                            (BERR-REF1973 BERR)
                                            (WORK-REF1974 WORK)
                                            (RWORK-REF1976 RWORK))
      (%%CHESVX FACT UPLO N-REF1960 NRHS-REF1961 A-REF1962 LDA-REF1963
                AF-REF1964 LDAF-REF1965 IPIV-REF1966 B-REF1967 LDB-REF1968
                X-REF1969 LDX-REF1970 RCOND-REF1971 FERR-REF1972 BERR-REF1973
                WORK-REF1974 LWORK-REF1975 RWORK-REF1976 INFO-REF1977))))

(CFFI:DEFCFUN ("chesvxx_" %%CHESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1980 ':INT32) (NRHS-REF1981 ':INT32)
                              (LDA-REF1983 ':INT32) (LDAF-REF1985 ':INT32)
                              (LDB-REF1990 ':INT32) (LDX-REF1992 ':INT32)
                              (RCOND-REF1993 ':FLOAT) (RPVGRW-REF1994 ':FLOAT)
                              (N_ERR_BNDS-REF1996 ':INT32)
                              (NPARAMS-REF1999 ':INT32) (INFO-REF2003 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1980 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1981 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1983 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1985 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1990 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1992 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1993 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF1994 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF1996 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF1999 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2003 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1982 A) (AF-REF1984 AF)
                                            (IPIV-REF1986 IPIV) (S-REF1988 S)
                                            (B-REF1989 B) (X-REF1991 X)
                                            (BERR-REF1995 BERR)
                                            (ERR_BNDS_NORM-REF1997
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF1998
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF2000 PARAMS)
                                            (WORK-REF2001 WORK)
                                            (RWORK-REF2002 RWORK))
      (%%CHESVXX FACT UPLO N-REF1980 NRHS-REF1981 A-REF1982 LDA-REF1983
                 AF-REF1984 LDAF-REF1985 IPIV-REF1986 EQUED S-REF1988 B-REF1989
                 LDB-REF1990 X-REF1991 LDX-REF1992 RCOND-REF1993 RPVGRW-REF1994
                 BERR-REF1995 N_ERR_BNDS-REF1996 ERR_BNDS_NORM-REF1997
                 ERR_BNDS_COMP-REF1998 NPARAMS-REF1999 PARAMS-REF2000
                 WORK-REF2001 RWORK-REF2002 INFO-REF2003))))

(CFFI:DEFCFUN ("cheswapr_" %%CHESWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %CHESWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2005 ':INT32) (LDA-REF2007 ':INT32)
                              (I1-REF2008 ':INT32) (I2-REF2009 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2005 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2007 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF2008 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF2009 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2006 A))
      (%%CHESWAPR UPLO N-REF2005 A-REF2006 LDA-REF2007 I1-REF2008 I2-REF2009))))

(CFFI:DEFCFUN ("chetd2_" %%CHETD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETD2 (UPLO N A LDA D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETD2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2011 ':INT32) (LDA-REF2013 ':INT32)
                              (INFO-REF2017 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2011 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2013 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2017 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2012 A) (D-REF2014 D)
                                            (E-REF2015 E) (TAU-REF2016 TAU))
      (%%CHETD2 UPLO N-REF2011 A-REF2012 LDA-REF2013 D-REF2014 E-REF2015
                TAU-REF2016 INFO-REF2017))))

(CFFI:DEFCFUN ("chetf2_" %%CHETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2019 ':INT32) (LDA-REF2021 ':INT32)
                              (INFO-REF2023 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2019 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2021 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2023 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2020 A) (IPIV-REF2022 IPIV))
      (%%CHETF2 UPLO N-REF2019 A-REF2020 LDA-REF2021 IPIV-REF2022
                INFO-REF2023))))

(CFFI:DEFCFUN ("chetf2_rk_" %%CHETF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2025 ':INT32) (LDA-REF2027 ':INT32)
                              (INFO-REF2030 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2025 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2027 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2030 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2026 A) (E-REF2028 E)
                                            (IPIV-REF2029 IPIV))
      (%%CHETF2_RK UPLO N-REF2025 A-REF2026 LDA-REF2027 E-REF2028 IPIV-REF2029
                   INFO-REF2030))))

(CFFI:DEFCFUN ("chetf2_rook_" %%CHETF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2032 ':INT32) (LDA-REF2034 ':INT32)
                              (INFO-REF2036 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2032 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2034 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2036 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2033 A) (IPIV-REF2035 IPIV))
      (%%CHETF2_ROOK UPLO N-REF2032 A-REF2033 LDA-REF2034 IPIV-REF2035
                     INFO-REF2036))))

(CFFI:DEFCFUN ("chetrd_" %%CHETRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2038 ':INT32) (LDA-REF2040 ':INT32)
                              (LWORK-REF2045 ':INT32) (INFO-REF2046 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2038 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2040 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2045 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2046 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2039 A) (D-REF2041 D)
                                            (E-REF2042 E) (TAU-REF2043 TAU)
                                            (WORK-REF2044 WORK))
      (%%CHETRD UPLO N-REF2038 A-REF2039 LDA-REF2040 D-REF2041 E-REF2042
                TAU-REF2043 WORK-REF2044 LWORK-REF2045 INFO-REF2046))))

(CFFI:DEFCFUN ("chetrd_2stage_" %%CHETRD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (HOUS2 :POINTER)
  (LHOUS2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRD_2STAGE
                   (VECT UPLO N A LDA D E TAU HOUS2 LHOUS2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        HOUS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LHOUS2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2049 ':INT32) (LDA-REF2051 ':INT32)
                              (LHOUS2-REF2056 ':INT32) (LWORK-REF2058 ':INT32)
                              (INFO-REF2059 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2049 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2051 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF2056 :INT32) LHOUS2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2058 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2059 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2050 A) (D-REF2052 D)
                                            (E-REF2053 E) (TAU-REF2054 TAU)
                                            (HOUS2-REF2055 HOUS2)
                                            (WORK-REF2057 WORK))
      (%%CHETRD_2STAGE VECT UPLO N-REF2049 A-REF2050 LDA-REF2051 D-REF2052
                       E-REF2053 TAU-REF2054 HOUS2-REF2055 LHOUS2-REF2056
                       WORK-REF2057 LWORK-REF2058 INFO-REF2059))))

(CFFI:DEFCFUN ("chetrd_he2hb_" %%CHETRD_HE2HB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRD_HE2HB (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRD_HE2HB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2061 ':INT32) (KD-REF2062 ':INT32)
                              (LDA-REF2064 ':INT32) (LDAB-REF2066 ':INT32)
                              (LWORK-REF2069 ':INT32) (INFO-REF2070 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2061 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF2062 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2064 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2066 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2069 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2070 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2063 A) (AB-REF2065 AB)
                                            (TAU-REF2067 TAU)
                                            (WORK-REF2068 WORK))
      (%%CHETRD_HE2HB UPLO N-REF2061 KD-REF2062 A-REF2063 LDA-REF2064
                      AB-REF2065 LDAB-REF2066 TAU-REF2067 WORK-REF2068
                      LWORK-REF2069 INFO-REF2070))))

(CFFI:DEFCFUN ("chetrf_" %%CHETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2072 ':INT32) (LDA-REF2074 ':INT32)
                              (LWORK-REF2077 ':INT32) (INFO-REF2078 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2072 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2074 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2077 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2078 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2073 A) (IPIV-REF2075 IPIV)
                                            (WORK-REF2076 WORK))
      (%%CHETRF UPLO N-REF2072 A-REF2073 LDA-REF2074 IPIV-REF2075 WORK-REF2076
                LWORK-REF2077 INFO-REF2078))))

(CFFI:DEFCFUN ("chetrf_aa_" %%CHETRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2080 ':INT32) (LDA-REF2082 ':INT32)
                              (LWORK-REF2085 ':INT32) (INFO-REF2086 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2080 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2082 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2085 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2086 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2081 A) (IPIV-REF2083 IPIV)
                                            (WORK-REF2084 WORK))
      (%%CHETRF_AA UPLO N-REF2080 A-REF2081 LDA-REF2082 IPIV-REF2083
                   WORK-REF2084 LWORK-REF2085 INFO-REF2086))))

(CFFI:DEFCFUN ("chetrf_aa_2stage_" %%CHETRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2088 ':INT32) (LDA-REF2090 ':INT32)
                              (LTB-REF2092 ':INT32) (LWORK-REF2096 ':INT32)
                              (INFO-REF2097 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2088 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2090 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF2092 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2096 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2097 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2089 A) (TB-REF2091 TB)
                                            (IPIV-REF2093 IPIV)
                                            (IPIV2-REF2094 IPIV2)
                                            (WORK-REF2095 WORK))
      (%%CHETRF_AA_2STAGE UPLO N-REF2088 A-REF2089 LDA-REF2090 TB-REF2091
                          LTB-REF2092 IPIV-REF2093 IPIV2-REF2094 WORK-REF2095
                          LWORK-REF2096 INFO-REF2097))))

(CFFI:DEFCFUN ("chetrf_rk_" %%CHETRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2099 ':INT32) (LDA-REF2101 ':INT32)
                              (LWORK-REF2105 ':INT32) (INFO-REF2106 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2099 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2101 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2105 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2106 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2100 A) (E-REF2102 E)
                                            (IPIV-REF2103 IPIV)
                                            (WORK-REF2104 WORK))
      (%%CHETRF_RK UPLO N-REF2099 A-REF2100 LDA-REF2101 E-REF2102 IPIV-REF2103
                   WORK-REF2104 LWORK-REF2105 INFO-REF2106))))

(CFFI:DEFCFUN ("chetrf_rook_" %%CHETRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2108 ':INT32) (LDA-REF2110 ':INT32)
                              (LWORK-REF2113 ':INT32) (INFO-REF2114 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2108 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2110 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2113 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2114 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2109 A) (IPIV-REF2111 IPIV)
                                            (WORK-REF2112 WORK))
      (%%CHETRF_ROOK UPLO N-REF2108 A-REF2109 LDA-REF2110 IPIV-REF2111
                     WORK-REF2112 LWORK-REF2113 INFO-REF2114))))

(CFFI:DEFCFUN ("chetri_" %%CHETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2116 ':INT32) (LDA-REF2118 ':INT32)
                              (INFO-REF2121 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2116 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2118 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2121 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2117 A) (IPIV-REF2119 IPIV)
                                            (WORK-REF2120 WORK))
      (%%CHETRI UPLO N-REF2116 A-REF2117 LDA-REF2118 IPIV-REF2119 WORK-REF2120
                INFO-REF2121))))

(CFFI:DEFCFUN ("chetri2_" %%CHETRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2123 ':INT32) (LDA-REF2125 ':INT32)
                              (LWORK-REF2128 ':INT32) (INFO-REF2129 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2123 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2125 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2128 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2129 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2124 A) (IPIV-REF2126 IPIV)
                                            (WORK-REF2127 WORK))
      (%%CHETRI2 UPLO N-REF2123 A-REF2124 LDA-REF2125 IPIV-REF2126 WORK-REF2127
                 LWORK-REF2128 INFO-REF2129))))

(CFFI:DEFCFUN ("chetri2x_" %%CHETRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2131 ':INT32) (LDA-REF2133 ':INT32)
                              (NB-REF2136 ':INT32) (INFO-REF2137 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2131 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2133 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2136 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2137 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2132 A) (IPIV-REF2134 IPIV)
                                            (WORK-REF2135 WORK))
      (%%CHETRI2X UPLO N-REF2131 A-REF2132 LDA-REF2133 IPIV-REF2134
                  WORK-REF2135 NB-REF2136 INFO-REF2137))))

(CFFI:DEFCFUN ("chetri_3_" %%CHETRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2139 ':INT32) (LDA-REF2141 ':INT32)
                              (LWORK-REF2145 ':INT32) (INFO-REF2146 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2139 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2141 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2145 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2146 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2140 A) (E-REF2142 E)
                                            (IPIV-REF2143 IPIV)
                                            (WORK-REF2144 WORK))
      (%%CHETRI_3 UPLO N-REF2139 A-REF2140 LDA-REF2141 E-REF2142 IPIV-REF2143
                  WORK-REF2144 LWORK-REF2145 INFO-REF2146))))

(CFFI:DEFCFUN ("chetri_3x_" %%CHETRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2148 ':INT32) (LDA-REF2150 ':INT32)
                              (NB-REF2154 ':INT32) (INFO-REF2155 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2148 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2150 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2154 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2155 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2149 A) (E-REF2151 E)
                                            (IPIV-REF2152 IPIV)
                                            (WORK-REF2153 WORK))
      (%%CHETRI_3X UPLO N-REF2148 A-REF2149 LDA-REF2150 E-REF2151 IPIV-REF2152
                   WORK-REF2153 NB-REF2154 INFO-REF2155))))

(CFFI:DEFCFUN ("chetri_rook_" %%CHETRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2157 ':INT32) (LDA-REF2159 ':INT32)
                              (INFO-REF2162 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2157 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2159 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2162 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2158 A) (IPIV-REF2160 IPIV)
                                            (WORK-REF2161 WORK))
      (%%CHETRI_ROOK UPLO N-REF2157 A-REF2158 LDA-REF2159 IPIV-REF2160
                     WORK-REF2161 INFO-REF2162))))

(CFFI:DEFCFUN ("chetrs_" %%CHETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2164 ':INT32) (NRHS-REF2165 ':INT32)
                              (LDA-REF2167 ':INT32) (LDB-REF2170 ':INT32)
                              (INFO-REF2171 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2164 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2165 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2167 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2170 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2171 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2166 A) (IPIV-REF2168 IPIV)
                                            (B-REF2169 B))
      (%%CHETRS UPLO N-REF2164 NRHS-REF2165 A-REF2166 LDA-REF2167 IPIV-REF2168
                B-REF2169 LDB-REF2170 INFO-REF2171))))

(CFFI:DEFCFUN ("chetrs2_" %%CHETRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2173 ':INT32) (NRHS-REF2174 ':INT32)
                              (LDA-REF2176 ':INT32) (LDB-REF2179 ':INT32)
                              (INFO-REF2181 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2173 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2174 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2176 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2179 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2181 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2175 A) (IPIV-REF2177 IPIV)
                                            (B-REF2178 B) (WORK-REF2180 WORK))
      (%%CHETRS2 UPLO N-REF2173 NRHS-REF2174 A-REF2175 LDA-REF2176 IPIV-REF2177
                 B-REF2178 LDB-REF2179 WORK-REF2180 INFO-REF2181))))

(CFFI:DEFCFUN ("chetrs_3_" %%CHETRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2183 ':INT32) (NRHS-REF2184 ':INT32)
                              (LDA-REF2186 ':INT32) (LDB-REF2190 ':INT32)
                              (INFO-REF2191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2183 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2184 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2186 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2190 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2191 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2185 A) (E-REF2187 E)
                                            (IPIV-REF2188 IPIV) (B-REF2189 B))
      (%%CHETRS_3 UPLO N-REF2183 NRHS-REF2184 A-REF2185 LDA-REF2186 E-REF2187
                  IPIV-REF2188 B-REF2189 LDB-REF2190 INFO-REF2191))))

(CFFI:DEFCFUN ("chetrs_aa_" %%CHETRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2193 ':INT32) (NRHS-REF2194 ':INT32)
                              (LDA-REF2196 ':INT32) (LDB-REF2199 ':INT32)
                              (LWORK-REF2201 ':INT32) (INFO-REF2202 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2193 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2194 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2196 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2199 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2201 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2202 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2195 A) (IPIV-REF2197 IPIV)
                                            (B-REF2198 B) (WORK-REF2200 WORK))
      (%%CHETRS_AA UPLO N-REF2193 NRHS-REF2194 A-REF2195 LDA-REF2196
                   IPIV-REF2197 B-REF2198 LDB-REF2199 WORK-REF2200
                   LWORK-REF2201 INFO-REF2202))))

(CFFI:DEFCFUN ("chetrs_aa_2stage_" %%CHETRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2204 ':INT32) (NRHS-REF2205 ':INT32)
                              (LDA-REF2207 ':INT32) (LTB-REF2209 ':INT32)
                              (LDB-REF2213 ':INT32) (INFO-REF2214 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2204 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2205 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2207 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF2209 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2213 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2214 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2206 A) (TB-REF2208 TB)
                                            (IPIV-REF2210 IPIV)
                                            (IPIV2-REF2211 IPIV2) (B-REF2212 B))
      (%%CHETRS_AA_2STAGE UPLO N-REF2204 NRHS-REF2205 A-REF2206 LDA-REF2207
                          TB-REF2208 LTB-REF2209 IPIV-REF2210 IPIV2-REF2211
                          B-REF2212 LDB-REF2213 INFO-REF2214))))

(CFFI:DEFCFUN ("chetrs_rook_" %%CHETRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2216 ':INT32) (NRHS-REF2217 ':INT32)
                              (LDA-REF2219 ':INT32) (LDB-REF2222 ':INT32)
                              (INFO-REF2223 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2216 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2217 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2219 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2222 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2223 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2218 A) (IPIV-REF2220 IPIV)
                                            (B-REF2221 B))
      (%%CHETRS_ROOK UPLO N-REF2216 NRHS-REF2217 A-REF2218 LDA-REF2219
                     IPIV-REF2220 B-REF2221 LDB-REF2222 INFO-REF2223))))

(CFFI:DEFCFUN ("chfrk_" %%CHFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %CHFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHFRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2227 ':INT32) (K-REF2228 ':INT32)
                              (ALPHA-REF2229 ':FLOAT) (LDA-REF2231 ':INT32)
                              (BETA-REF2232 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2227 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2228 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2229 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2231 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2232 :FLOAT) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2230 A) (C-REF2233 C))
      (%%CHFRK TRANSR UPLO TRANS N-REF2227 K-REF2228 ALPHA-REF2229 A-REF2230
               LDA-REF2231 BETA-REF2232 C-REF2233))))

(CFFI:DEFCFUN ("chgeqz_" %%CHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHGEQZ
                   (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHA BETA Q LDQ Z
                    LDZ WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHGEQZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2237 ':INT32) (ILO-REF2238 ':INT32)
                              (IHI-REF2239 ':INT32) (LDH-REF2241 ':INT32)
                              (LDT-REF2243 ':INT32) (LDQ-REF2247 ':INT32)
                              (LDZ-REF2249 ':INT32) (LWORK-REF2251 ':INT32)
                              (INFO-REF2253 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2237 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2238 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2239 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2241 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF2243 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2247 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2249 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2251 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2253 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2240 H) (T-REF2242 T)
                                            (ALPHA-REF2244 ALPHA)
                                            (BETA-REF2245 BETA) (Q-REF2246 Q)
                                            (Z-REF2248 Z) (WORK-REF2250 WORK)
                                            (RWORK-REF2252 RWORK))
      (%%CHGEQZ JOB COMPQ COMPZ N-REF2237 ILO-REF2238 IHI-REF2239 H-REF2240
                LDH-REF2241 T-REF2242 LDT-REF2243 ALPHA-REF2244 BETA-REF2245
                Q-REF2246 LDQ-REF2247 Z-REF2248 LDZ-REF2249 WORK-REF2250
                LWORK-REF2251 RWORK-REF2252 INFO-REF2253))))

(CFFI:DEFCFUN ("chla_transtype_" %%CHLA_TRANSTYPE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :STRING
  (TRANS :POINTER))

(COMMON-LISP:DEFUN %CHLA_TRANSTYPE (TRANS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHLA_TRANSTYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2254 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2254 :INT32) TRANS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CHLA_TRANSTYPE TRANS-REF2254))))

(CFFI:DEFCFUN ("chpcon_" %%CHPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2256 ':INT32) (ANORM-REF2259 ':FLOAT)
                              (RCOND-REF2260 ':FLOAT) (INFO-REF2262 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2256 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF2259 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2260 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2262 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2257 AP) (IPIV-REF2258 IPIV)
                                            (WORK-REF2261 WORK))
      (%%CHPCON UPLO N-REF2256 AP-REF2257 IPIV-REF2258 ANORM-REF2259
                RCOND-REF2260 WORK-REF2261 INFO-REF2262))))

(CFFI:DEFCFUN ("chpev_" %%CHPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPEV (JOBZ UPLO N AP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2265 ':INT32) (LDZ-REF2269 ':INT32)
                              (INFO-REF2272 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2265 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2269 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2272 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2266 AP) (W-REF2267 W)
                                            (Z-REF2268 Z) (WORK-REF2270 WORK)
                                            (RWORK-REF2271 RWORK))
      (%%CHPEV JOBZ UPLO N-REF2265 AP-REF2266 W-REF2267 Z-REF2268 LDZ-REF2269
               WORK-REF2270 RWORK-REF2271 INFO-REF2272))))

(CFFI:DEFCFUN ("chpevd_" %%CHPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPEVD
                   (JOBZ UPLO N AP W Z LDZ WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2275 ':INT32) (LDZ-REF2279 ':INT32)
                              (LWORK-REF2281 ':INT32) (LRWORK-REF2283 ':INT32)
                              (LIWORK-REF2285 ':INT32) (INFO-REF2286 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2275 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2279 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2281 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2283 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2285 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2286 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2276 AP) (W-REF2277 W)
                                            (Z-REF2278 Z) (WORK-REF2280 WORK)
                                            (RWORK-REF2282 RWORK)
                                            (IWORK-REF2284 IWORK))
      (%%CHPEVD JOBZ UPLO N-REF2275 AP-REF2276 W-REF2277 Z-REF2278 LDZ-REF2279
                WORK-REF2280 LWORK-REF2281 RWORK-REF2282 LRWORK-REF2283
                IWORK-REF2284 LIWORK-REF2285 INFO-REF2286))))

(CFFI:DEFCFUN ("chpevx_" %%CHPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPEVX
                   (JOBZ RANGE UPLO N AP VL VU IL IU ABSTOL M W Z LDZ WORK
                    RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2290 ':INT32) (VL-REF2292 ':FLOAT)
                              (VU-REF2293 ':FLOAT) (IL-REF2294 ':INT32)
                              (IU-REF2295 ':INT32) (ABSTOL-REF2296 ':FLOAT)
                              (M-REF2297 ':INT32) (LDZ-REF2300 ':INT32)
                              (INFO-REF2305 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2290 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2292 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2293 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2294 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2295 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2296 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2297 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2300 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2305 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2291 AP) (W-REF2298 W)
                                            (Z-REF2299 Z) (WORK-REF2301 WORK)
                                            (RWORK-REF2302 RWORK)
                                            (IWORK-REF2303 IWORK)
                                            (IFAIL-REF2304 IFAIL))
      (%%CHPEVX JOBZ RANGE UPLO N-REF2290 AP-REF2291 VL-REF2292 VU-REF2293
                IL-REF2294 IU-REF2295 ABSTOL-REF2296 M-REF2297 W-REF2298
                Z-REF2299 LDZ-REF2300 WORK-REF2301 RWORK-REF2302 IWORK-REF2303
                IFAIL-REF2304 INFO-REF2305))))

(CFFI:DEFCFUN ("chpgst_" %%CHPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2306 ':INT32) (N-REF2308 ':INT32)
                              (INFO-REF2311 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2306 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2308 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2311 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2309 AP) (BP-REF2310 BP))
      (%%CHPGST ITYPE-REF2306 UPLO N-REF2308 AP-REF2309 BP-REF2310
                INFO-REF2311))))

(CFFI:DEFCFUN ("chpgv_" %%CHPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPGV (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2312 ':INT32) (N-REF2315 ':INT32)
                              (LDZ-REF2320 ':INT32) (INFO-REF2323 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2312 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2315 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2320 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2323 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2316 AP) (BP-REF2317 BP)
                                            (W-REF2318 W) (Z-REF2319 Z)
                                            (WORK-REF2321 WORK)
                                            (RWORK-REF2322 RWORK))
      (%%CHPGV ITYPE-REF2312 JOBZ UPLO N-REF2315 AP-REF2316 BP-REF2317
               W-REF2318 Z-REF2319 LDZ-REF2320 WORK-REF2321 RWORK-REF2322
               INFO-REF2323))))

(CFFI:DEFCFUN ("chpgvd_" %%CHPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPGVD
                   (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2324 ':INT32) (N-REF2327 ':INT32)
                              (LDZ-REF2332 ':INT32) (LWORK-REF2334 ':INT32)
                              (LRWORK-REF2336 ':INT32) (LIWORK-REF2338 ':INT32)
                              (INFO-REF2339 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2324 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2327 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2332 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2334 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2336 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2338 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2339 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2328 AP) (BP-REF2329 BP)
                                            (W-REF2330 W) (Z-REF2331 Z)
                                            (WORK-REF2333 WORK)
                                            (RWORK-REF2335 RWORK)
                                            (IWORK-REF2337 IWORK))
      (%%CHPGVD ITYPE-REF2324 JOBZ UPLO N-REF2327 AP-REF2328 BP-REF2329
                W-REF2330 Z-REF2331 LDZ-REF2332 WORK-REF2333 LWORK-REF2334
                RWORK-REF2335 LRWORK-REF2336 IWORK-REF2337 LIWORK-REF2338
                INFO-REF2339))))

(CFFI:DEFCFUN ("chpgvx_" %%CHPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPGVX
                   (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ
                    WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2340 ':INT32) (N-REF2344 ':INT32)
                              (VL-REF2347 ':FLOAT) (VU-REF2348 ':FLOAT)
                              (IL-REF2349 ':INT32) (IU-REF2350 ':INT32)
                              (ABSTOL-REF2351 ':FLOAT) (M-REF2352 ':INT32)
                              (LDZ-REF2355 ':INT32) (INFO-REF2360 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2340 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2344 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2347 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2348 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2349 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2350 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2351 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2352 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2355 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2360 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2345 AP) (BP-REF2346 BP)
                                            (W-REF2353 W) (Z-REF2354 Z)
                                            (WORK-REF2356 WORK)
                                            (RWORK-REF2357 RWORK)
                                            (IWORK-REF2358 IWORK)
                                            (IFAIL-REF2359 IFAIL))
      (%%CHPGVX ITYPE-REF2340 JOBZ RANGE UPLO N-REF2344 AP-REF2345 BP-REF2346
                VL-REF2347 VU-REF2348 IL-REF2349 IU-REF2350 ABSTOL-REF2351
                M-REF2352 W-REF2353 Z-REF2354 LDZ-REF2355 WORK-REF2356
                RWORK-REF2357 IWORK-REF2358 IFAIL-REF2359 INFO-REF2360))))

(CFFI:DEFCFUN ("chprfs_" %%CHPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2362 ':INT32) (NRHS-REF2363 ':INT32)
                              (LDB-REF2368 ':INT32) (LDX-REF2370 ':INT32)
                              (INFO-REF2375 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2362 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2363 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2368 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2370 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2375 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2364 AP) (AFP-REF2365 AFP)
                                            (IPIV-REF2366 IPIV) (B-REF2367 B)
                                            (X-REF2369 X) (FERR-REF2371 FERR)
                                            (BERR-REF2372 BERR)
                                            (WORK-REF2373 WORK)
                                            (RWORK-REF2374 RWORK))
      (%%CHPRFS UPLO N-REF2362 NRHS-REF2363 AP-REF2364 AFP-REF2365 IPIV-REF2366
                B-REF2367 LDB-REF2368 X-REF2369 LDX-REF2370 FERR-REF2371
                BERR-REF2372 WORK-REF2373 RWORK-REF2374 INFO-REF2375))))

(CFFI:DEFCFUN ("chpsv_" %%CHPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2377 ':INT32) (NRHS-REF2378 ':INT32)
                              (LDB-REF2382 ':INT32) (INFO-REF2383 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2377 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2378 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2382 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2383 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2379 AP) (IPIV-REF2380 IPIV)
                                            (B-REF2381 B))
      (%%CHPSV UPLO N-REF2377 NRHS-REF2378 AP-REF2379 IPIV-REF2380 B-REF2381
               LDB-REF2382 INFO-REF2383))))

(CFFI:DEFCFUN ("chpsvx_" %%CHPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2386 ':INT32) (NRHS-REF2387 ':INT32)
                              (LDB-REF2392 ':INT32) (LDX-REF2394 ':INT32)
                              (RCOND-REF2395 ':FLOAT) (INFO-REF2400 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2386 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2387 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2392 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2394 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2395 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2400 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2388 AP) (AFP-REF2389 AFP)
                                            (IPIV-REF2390 IPIV) (B-REF2391 B)
                                            (X-REF2393 X) (FERR-REF2396 FERR)
                                            (BERR-REF2397 BERR)
                                            (WORK-REF2398 WORK)
                                            (RWORK-REF2399 RWORK))
      (%%CHPSVX FACT UPLO N-REF2386 NRHS-REF2387 AP-REF2388 AFP-REF2389
                IPIV-REF2390 B-REF2391 LDB-REF2392 X-REF2393 LDX-REF2394
                RCOND-REF2395 FERR-REF2396 BERR-REF2397 WORK-REF2398
                RWORK-REF2399 INFO-REF2400))))

(CFFI:DEFCFUN ("chptrd_" %%CHPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2402 ':INT32) (INFO-REF2407 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2402 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2407 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2403 AP) (D-REF2404 D)
                                            (E-REF2405 E) (TAU-REF2406 TAU))
      (%%CHPTRD UPLO N-REF2402 AP-REF2403 D-REF2404 E-REF2405 TAU-REF2406
                INFO-REF2407))))

(CFFI:DEFCFUN ("chptrf_" %%CHPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2409 ':INT32) (INFO-REF2412 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2409 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2412 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2410 AP) (IPIV-REF2411 IPIV))
      (%%CHPTRF UPLO N-REF2409 AP-REF2410 IPIV-REF2411 INFO-REF2412))))

(CFFI:DEFCFUN ("chptri_" %%CHPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2414 ':INT32) (INFO-REF2418 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2414 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2418 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2415 AP) (IPIV-REF2416 IPIV)
                                            (WORK-REF2417 WORK))
      (%%CHPTRI UPLO N-REF2414 AP-REF2415 IPIV-REF2416 WORK-REF2417
                INFO-REF2418))))

(CFFI:DEFCFUN ("chptrs_" %%CHPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2420 ':INT32) (NRHS-REF2421 ':INT32)
                              (LDB-REF2425 ':INT32) (INFO-REF2426 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2420 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2421 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2425 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2426 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2422 AP) (IPIV-REF2423 IPIV)
                                            (B-REF2424 B))
      (%%CHPTRS UPLO N-REF2420 NRHS-REF2421 AP-REF2422 IPIV-REF2423 B-REF2424
                LDB-REF2425 INFO-REF2426))))

(CFFI:DEFCFUN ("chsein_" %%CHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (EIGSRC :STRING)
  (INITV :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IFAILL :POINTER)
  (IFAILR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHSEIN
                   (SIDE EIGSRC INITV SELECT N H LDH W VL LDVL VR LDVR MM M
                    WORK RWORK IFAILL IFAILR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHSEIN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2431 ':INT32) (LDH-REF2433 ':INT32)
                              (LDVL-REF2436 ':INT32) (LDVR-REF2438 ':INT32)
                              (MM-REF2439 ':INT32) (M-REF2440 ':INT32)
                              (INFO-REF2445 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2431 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2433 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2436 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2438 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF2439 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2440 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2445 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF2430 SELECT)
                                            (H-REF2432 H) (W-REF2434 W)
                                            (VL-REF2435 VL) (VR-REF2437 VR)
                                            (WORK-REF2441 WORK)
                                            (RWORK-REF2442 RWORK)
                                            (IFAILL-REF2443 IFAILL)
                                            (IFAILR-REF2444 IFAILR))
      (%%CHSEIN SIDE EIGSRC INITV SELECT-REF2430 N-REF2431 H-REF2432
                LDH-REF2433 W-REF2434 VL-REF2435 LDVL-REF2436 VR-REF2437
                LDVR-REF2438 MM-REF2439 M-REF2440 WORK-REF2441 RWORK-REF2442
                IFAILL-REF2443 IFAILR-REF2444 INFO-REF2445))))

(CFFI:DEFCFUN ("chseqr_" %%CHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHSEQR (JOB COMPZ N ILO IHI H LDH W Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHSEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2448 ':INT32) (ILO-REF2449 ':INT32)
                              (IHI-REF2450 ':INT32) (LDH-REF2452 ':INT32)
                              (LDZ-REF2455 ':INT32) (LWORK-REF2457 ':INT32)
                              (INFO-REF2458 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2448 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2449 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2450 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2452 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2455 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2457 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2458 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2451 H) (W-REF2453 W)
                                            (Z-REF2454 Z) (WORK-REF2456 WORK))
      (%%CHSEQR JOB COMPZ N-REF2448 ILO-REF2449 IHI-REF2450 H-REF2451
                LDH-REF2452 W-REF2453 Z-REF2454 LDZ-REF2455 WORK-REF2456
                LWORK-REF2457 INFO-REF2458))))

(CFFI:DEFCFUN ("cla_gbamv_" %%CLA_GBAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CLA_GBAMV
                   (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2459 ':INT32) (M-REF2460 ':INT32)
                              (N-REF2461 ':INT32) (KL-REF2462 ':INT32)
                              (KU-REF2463 ':INT32) (ALPHA-REF2464 ':FLOAT)
                              (LDAB-REF2466 ':INT32) (INCX-REF2468 ':INT32)
                              (BETA-REF2469 ':FLOAT) (INCY-REF2471 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2459 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2460 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2461 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2462 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2463 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2464 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2466 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2468 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2469 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2471 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2465 AB) (X-REF2467 X)
                                            (Y-REF2470 Y))
      (%%CLA_GBAMV TRANS-REF2459 M-REF2460 N-REF2461 KL-REF2462 KU-REF2463
                   ALPHA-REF2464 AB-REF2465 LDAB-REF2466 X-REF2467 INCX-REF2468
                   BETA-REF2469 Y-REF2470 INCY-REF2471))))

(CFFI:DEFCFUN ("cla_gbrcond_c_" %%CLA_GBRCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_GBRCOND_C
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV C CAPPLY INFO WORK
                    RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBRCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2473 ':INT32) (KL-REF2474 ':INT32)
                              (KU-REF2475 ':INT32) (LDAB-REF2477 ':INT32)
                              (LDAFB-REF2479 ':INT32) (CAPPLY-REF2482 ':INT32)
                              (INFO-REF2483 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2473 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2474 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2475 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2477 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2479 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2482 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2483 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2476 AB) (AFB-REF2478 AFB)
                                            (IPIV-REF2480 IPIV) (C-REF2481 C)
                                            (WORK-REF2484 WORK)
                                            (RWORK-REF2485 RWORK))
      (%%CLA_GBRCOND_C TRANS N-REF2473 KL-REF2474 KU-REF2475 AB-REF2476
                       LDAB-REF2477 AFB-REF2478 LDAFB-REF2479 IPIV-REF2480
                       C-REF2481 CAPPLY-REF2482 INFO-REF2483 WORK-REF2484
                       RWORK-REF2485))))

(CFFI:DEFCFUN ("cla_gbrcond_x_" %%CLA_GBRCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_GBRCOND_X
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBRCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2487 ':INT32) (KL-REF2488 ':INT32)
                              (KU-REF2489 ':INT32) (LDAB-REF2491 ':INT32)
                              (LDAFB-REF2493 ':INT32) (INFO-REF2496 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2487 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2488 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2489 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2491 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2493 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2496 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2490 AB) (AFB-REF2492 AFB)
                                            (IPIV-REF2494 IPIV) (X-REF2495 X)
                                            (WORK-REF2497 WORK)
                                            (RWORK-REF2498 RWORK))
      (%%CLA_GBRCOND_X TRANS N-REF2487 KL-REF2488 KU-REF2489 AB-REF2490
                       LDAB-REF2491 AFB-REF2492 LDAFB-REF2493 IPIV-REF2494
                       X-REF2495 INFO-REF2496 WORK-REF2497 RWORK-REF2498))))

(CFFI:DEFCFUN ("cla_gbrfsx_extended_" %%CLA_GBRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLA_GBRFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV
                    COLEQU C B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM
                    ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB
                    IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2499 ':INT32)
                              (TRANS_TYPE-REF2500 ':INT32) (N-REF2501 ':INT32)
                              (KL-REF2502 ':INT32) (KU-REF2503 ':INT32)
                              (NRHS-REF2504 ':INT32) (LDAB-REF2506 ':INT32)
                              (LDAFB-REF2508 ':INT32) (COLEQU-REF2510 ':INT32)
                              (LDB-REF2513 ':INT32) (LDY-REF2515 ':INT32)
                              (N_NORMS-REF2517 ':INT32) (RCOND-REF2524 ':FLOAT)
                              (ITHRESH-REF2525 ':INT32)
                              (RTHRESH-REF2526 ':FLOAT) (DZ_UB-REF2527 ':FLOAT)
                              (IGNORE_CWISE-REF2528 ':INT32)
                              (INFO-REF2529 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2499 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF2500 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2501 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2502 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2503 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2504 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2506 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2508 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2510 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2513 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2515 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2517 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2524 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2525 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2526 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2527 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2528 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2529 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2505 AB) (AFB-REF2507 AFB)
                                            (IPIV-REF2509 IPIV) (C-REF2511 C)
                                            (B-REF2512 B) (Y-REF2514 Y)
                                            (BERR_OUT-REF2516 BERR_OUT)
                                            (ERR_BNDS_NORM-REF2518
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF2519
                                             ERR_BNDS_COMP)
                                            (RES-REF2520 RES) (AYB-REF2521 AYB)
                                            (DY-REF2522 DY)
                                            (Y_TAIL-REF2523 Y_TAIL))
      (%%CLA_GBRFSX_EXTENDED PREC_TYPE-REF2499 TRANS_TYPE-REF2500 N-REF2501
                             KL-REF2502 KU-REF2503 NRHS-REF2504 AB-REF2505
                             LDAB-REF2506 AFB-REF2507 LDAFB-REF2508
                             IPIV-REF2509 COLEQU-REF2510 C-REF2511 B-REF2512
                             LDB-REF2513 Y-REF2514 LDY-REF2515 BERR_OUT-REF2516
                             N_NORMS-REF2517 ERR_BNDS_NORM-REF2518
                             ERR_BNDS_COMP-REF2519 RES-REF2520 AYB-REF2521
                             DY-REF2522 Y_TAIL-REF2523 RCOND-REF2524
                             ITHRESH-REF2525 RTHRESH-REF2526 DZ_UB-REF2527
                             IGNORE_CWISE-REF2528 INFO-REF2529))))

(CFFI:DEFCFUN ("cla_gbrpvgrw_" %%CLA_GBRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NCOLS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER))

(COMMON-LISP:DEFUN %CLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBRPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2530 ':INT32) (KL-REF2531 ':INT32)
                              (KU-REF2532 ':INT32) (NCOLS-REF2533 ':INT32)
                              (LDAB-REF2535 ':INT32) (LDAFB-REF2537 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2530 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2531 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2532 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2533 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2535 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2537 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2534 AB) (AFB-REF2536 AFB))
      (%%CLA_GBRPVGRW N-REF2530 KL-REF2531 KU-REF2532 NCOLS-REF2533 AB-REF2534
                      LDAB-REF2535 AFB-REF2536 LDAFB-REF2537))))

(CFFI:DEFCFUN ("cla_geamv_" %%CLA_GEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CLA_GEAMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2538 ':INT32) (M-REF2539 ':INT32)
                              (N-REF2540 ':INT32) (ALPHA-REF2541 ':FLOAT)
                              (LDA-REF2543 ':INT32) (INCX-REF2545 ':INT32)
                              (BETA-REF2546 ':FLOAT) (INCY-REF2548 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2538 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2539 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2540 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2541 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2543 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2545 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2546 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2548 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2542 A) (X-REF2544 X)
                                            (Y-REF2547 Y))
      (%%CLA_GEAMV TRANS-REF2538 M-REF2539 N-REF2540 ALPHA-REF2541 A-REF2542
                   LDA-REF2543 X-REF2544 INCX-REF2545 BETA-REF2546 Y-REF2547
                   INCY-REF2548))))

(CFFI:DEFCFUN ("cla_gercond_c_" %%CLA_GERCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_GERCOND_C
                   (TRANS N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GERCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2550 ':INT32) (LDA-REF2552 ':INT32)
                              (LDAF-REF2554 ':INT32) (CAPPLY-REF2557 ':INT32)
                              (INFO-REF2558 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2550 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2552 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2554 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2557 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2558 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2551 A) (AF-REF2553 AF)
                                            (IPIV-REF2555 IPIV) (C-REF2556 C)
                                            (WORK-REF2559 WORK)
                                            (RWORK-REF2560 RWORK))
      (%%CLA_GERCOND_C TRANS N-REF2550 A-REF2551 LDA-REF2552 AF-REF2553
                       LDAF-REF2554 IPIV-REF2555 C-REF2556 CAPPLY-REF2557
                       INFO-REF2558 WORK-REF2559 RWORK-REF2560))))

(CFFI:DEFCFUN ("cla_gercond_x_" %%CLA_GERCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_GERCOND_X
                   (TRANS N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GERCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2562 ':INT32) (LDA-REF2564 ':INT32)
                              (LDAF-REF2566 ':INT32) (INFO-REF2569 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2562 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2564 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2566 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2569 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2563 A) (AF-REF2565 AF)
                                            (IPIV-REF2567 IPIV) (X-REF2568 X)
                                            (WORK-REF2570 WORK)
                                            (RWORK-REF2571 RWORK))
      (%%CLA_GERCOND_X TRANS N-REF2562 A-REF2563 LDA-REF2564 AF-REF2565
                       LDAF-REF2566 IPIV-REF2567 X-REF2568 INFO-REF2569
                       WORK-REF2570 RWORK-REF2571))))

(CFFI:DEFCFUN ("cla_gerfsx_extended_" %%CLA_GERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERRS_N :POINTER)
  (ERRS_C :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLA_GERFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B
                    LDB Y LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL
                    RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERRS_N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERRS_C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2572 ':INT32)
                              (TRANS_TYPE-REF2573 ':INT32) (N-REF2574 ':INT32)
                              (NRHS-REF2575 ':INT32) (LDA-REF2577 ':INT32)
                              (LDAF-REF2579 ':INT32) (COLEQU-REF2581 ':INT32)
                              (LDB-REF2584 ':INT32) (LDY-REF2586 ':INT32)
                              (N_NORMS-REF2588 ':INT32) (RCOND-REF2595 ':FLOAT)
                              (ITHRESH-REF2596 ':INT32)
                              (RTHRESH-REF2597 ':FLOAT) (DZ_UB-REF2598 ':FLOAT)
                              (IGNORE_CWISE-REF2599 ':INT32)
                              (INFO-REF2600 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2572 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF2573 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2574 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2575 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2577 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2579 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2581 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2584 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2586 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2588 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2595 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2596 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2597 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2598 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2599 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2600 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2576 A) (AF-REF2578 AF)
                                            (IPIV-REF2580 IPIV) (C-REF2582 C)
                                            (B-REF2583 B) (Y-REF2585 Y)
                                            (BERR_OUT-REF2587 BERR_OUT)
                                            (ERRS_N-REF2589 ERRS_N)
                                            (ERRS_C-REF2590 ERRS_C)
                                            (RES-REF2591 RES) (AYB-REF2592 AYB)
                                            (DY-REF2593 DY)
                                            (Y_TAIL-REF2594 Y_TAIL))
      (%%CLA_GERFSX_EXTENDED PREC_TYPE-REF2572 TRANS_TYPE-REF2573 N-REF2574
                             NRHS-REF2575 A-REF2576 LDA-REF2577 AF-REF2578
                             LDAF-REF2579 IPIV-REF2580 COLEQU-REF2581 C-REF2582
                             B-REF2583 LDB-REF2584 Y-REF2585 LDY-REF2586
                             BERR_OUT-REF2587 N_NORMS-REF2588 ERRS_N-REF2589
                             ERRS_C-REF2590 RES-REF2591 AYB-REF2592 DY-REF2593
                             Y_TAIL-REF2594 RCOND-REF2595 ITHRESH-REF2596
                             RTHRESH-REF2597 DZ_UB-REF2598 IGNORE_CWISE-REF2599
                             INFO-REF2600))))

(CFFI:DEFCFUN ("cla_gerpvgrw_" %%CLA_GERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (N :POINTER)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER))

(COMMON-LISP:DEFUN %CLA_GERPVGRW (N NCOLS A LDA AF LDAF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GERPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2601 ':INT32) (NCOLS-REF2602 ':INT32)
                              (LDA-REF2604 ':INT32) (LDAF-REF2606 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2601 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2602 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2604 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2606 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2603 A) (AF-REF2605 AF))
      (%%CLA_GERPVGRW N-REF2601 NCOLS-REF2602 A-REF2603 LDA-REF2604 AF-REF2605
                      LDAF-REF2606))))

(CFFI:DEFCFUN ("cla_heamv_" %%CLA_HEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CLA_HEAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF2607 ':INT32) (N-REF2608 ':INT32)
                              (ALPHA-REF2609 ':FLOAT) (LDA-REF2611 ':INT32)
                              (INCX-REF2613 ':INT32) (BETA-REF2614 ':FLOAT)
                              (INCY-REF2616 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF2607 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2608 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2609 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2611 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2613 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2614 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2616 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2610 A) (X-REF2612 X)
                                            (Y-REF2615 Y))
      (%%CLA_HEAMV UPLO-REF2607 N-REF2608 ALPHA-REF2609 A-REF2610 LDA-REF2611
                   X-REF2612 INCX-REF2613 BETA-REF2614 Y-REF2615
                   INCY-REF2616))))

(CFFI:DEFCFUN ("cla_hercond_c_" %%CLA_HERCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_HERCOND_C
                   (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2618 ':INT32) (LDA-REF2620 ':INT32)
                              (LDAF-REF2622 ':INT32) (CAPPLY-REF2625 ':INT32)
                              (INFO-REF2626 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2618 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2620 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2622 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2625 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2626 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2619 A) (AF-REF2621 AF)
                                            (IPIV-REF2623 IPIV) (C-REF2624 C)
                                            (WORK-REF2627 WORK)
                                            (RWORK-REF2628 RWORK))
      (%%CLA_HERCOND_C UPLO N-REF2618 A-REF2619 LDA-REF2620 AF-REF2621
                       LDAF-REF2622 IPIV-REF2623 C-REF2624 CAPPLY-REF2625
                       INFO-REF2626 WORK-REF2627 RWORK-REF2628))))

(CFFI:DEFCFUN ("cla_hercond_x_" %%CLA_HERCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_HERCOND_X (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2630 ':INT32) (LDA-REF2632 ':INT32)
                              (LDAF-REF2634 ':INT32) (INFO-REF2637 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2630 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2632 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2634 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2637 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2631 A) (AF-REF2633 AF)
                                            (IPIV-REF2635 IPIV) (X-REF2636 X)
                                            (WORK-REF2638 WORK)
                                            (RWORK-REF2639 RWORK))
      (%%CLA_HERCOND_X UPLO N-REF2630 A-REF2631 LDA-REF2632 AF-REF2633
                       LDAF-REF2634 IPIV-REF2635 X-REF2636 INFO-REF2637
                       WORK-REF2638 RWORK-REF2639))))

(CFFI:DEFCFUN ("cla_herfsx_extended_" %%CLA_HERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLA_HERFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2640 ':INT32) (N-REF2642 ':INT32)
                              (NRHS-REF2643 ':INT32) (LDA-REF2645 ':INT32)
                              (LDAF-REF2647 ':INT32) (COLEQU-REF2649 ':INT32)
                              (LDB-REF2652 ':INT32) (LDY-REF2654 ':INT32)
                              (N_NORMS-REF2656 ':INT32) (RCOND-REF2663 ':FLOAT)
                              (ITHRESH-REF2664 ':INT32)
                              (RTHRESH-REF2665 ':FLOAT) (DZ_UB-REF2666 ':FLOAT)
                              (IGNORE_CWISE-REF2667 ':INT32)
                              (INFO-REF2668 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2640 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2642 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2643 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2645 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2647 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2649 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2652 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2654 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2656 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2663 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2664 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2665 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2666 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2667 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2668 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2644 A) (AF-REF2646 AF)
                                            (IPIV-REF2648 IPIV) (C-REF2650 C)
                                            (B-REF2651 B) (Y-REF2653 Y)
                                            (BERR_OUT-REF2655 BERR_OUT)
                                            (ERR_BNDS_NORM-REF2657
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF2658
                                             ERR_BNDS_COMP)
                                            (RES-REF2659 RES) (AYB-REF2660 AYB)
                                            (DY-REF2661 DY)
                                            (Y_TAIL-REF2662 Y_TAIL))
      (%%CLA_HERFSX_EXTENDED PREC_TYPE-REF2640 UPLO N-REF2642 NRHS-REF2643
                             A-REF2644 LDA-REF2645 AF-REF2646 LDAF-REF2647
                             IPIV-REF2648 COLEQU-REF2649 C-REF2650 B-REF2651
                             LDB-REF2652 Y-REF2653 LDY-REF2654 BERR_OUT-REF2655
                             N_NORMS-REF2656 ERR_BNDS_NORM-REF2657
                             ERR_BNDS_COMP-REF2658 RES-REF2659 AYB-REF2660
                             DY-REF2661 Y_TAIL-REF2662 RCOND-REF2663
                             ITHRESH-REF2664 RTHRESH-REF2665 DZ_UB-REF2666
                             IGNORE_CWISE-REF2667 INFO-REF2668))))

(CFFI:DEFCFUN ("cla_herpvgrw_" %%CLA_HERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLA_HERPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2670 ':INT32) (INFO-REF2671 ':INT32)
                              (LDA-REF2673 ':INT32) (LDAF-REF2675 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2671 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2673 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2675 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2672 A) (AF-REF2674 AF)
                                            (IPIV-REF2676 IPIV)
                                            (WORK-REF2677 WORK))
      (%%CLA_HERPVGRW UPLO N-REF2670 INFO-REF2671 A-REF2672 LDA-REF2673
                      AF-REF2674 LDAF-REF2675 IPIV-REF2676 WORK-REF2677))))

(CFFI:DEFCFUN ("cla_lin_berr_" %%CLA_LIN_BERR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NZ :POINTER)
  (NRHS :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (BERR :POINTER))

(COMMON-LISP:DEFUN %CLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_LIN_BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2678 ':INT32) (NZ-REF2679 ':INT32)
                              (NRHS-REF2680 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2678 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF2679 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2680 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF2681 RES) (AYB-REF2682 AYB)
                                            (BERR-REF2683 BERR))
      (%%CLA_LIN_BERR N-REF2678 NZ-REF2679 NRHS-REF2680 RES-REF2681 AYB-REF2682
                      BERR-REF2683))))

(CFFI:DEFCFUN ("cla_porcond_c_" %%CLA_PORCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_PORCOND_C
                   (UPLO N A LDA AF LDAF C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2685 ':INT32) (LDA-REF2687 ':INT32)
                              (LDAF-REF2689 ':INT32) (CAPPLY-REF2691 ':INT32)
                              (INFO-REF2692 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2685 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2687 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2689 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2691 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2692 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2686 A) (AF-REF2688 AF)
                                            (C-REF2690 C) (WORK-REF2693 WORK)
                                            (RWORK-REF2694 RWORK))
      (%%CLA_PORCOND_C UPLO N-REF2685 A-REF2686 LDA-REF2687 AF-REF2688
                       LDAF-REF2689 C-REF2690 CAPPLY-REF2691 INFO-REF2692
                       WORK-REF2693 RWORK-REF2694))))

(CFFI:DEFCFUN ("cla_porcond_x_" %%CLA_PORCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_PORCOND_X (UPLO N A LDA AF LDAF X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2696 ':INT32) (LDA-REF2698 ':INT32)
                              (LDAF-REF2700 ':INT32) (INFO-REF2702 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2696 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2698 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2700 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2702 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2697 A) (AF-REF2699 AF)
                                            (X-REF2701 X) (WORK-REF2703 WORK)
                                            (RWORK-REF2704 RWORK))
      (%%CLA_PORCOND_X UPLO N-REF2696 A-REF2697 LDA-REF2698 AF-REF2699
                       LDAF-REF2700 X-REF2701 INFO-REF2702 WORK-REF2703
                       RWORK-REF2704))))

(CFFI:DEFCFUN ("cla_porfsx_extended_" %%CLA_PORFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLA_PORFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY
                    BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2705 ':INT32) (N-REF2707 ':INT32)
                              (NRHS-REF2708 ':INT32) (LDA-REF2710 ':INT32)
                              (LDAF-REF2712 ':INT32) (COLEQU-REF2713 ':INT32)
                              (LDB-REF2716 ':INT32) (LDY-REF2718 ':INT32)
                              (N_NORMS-REF2720 ':INT32) (RCOND-REF2727 ':FLOAT)
                              (ITHRESH-REF2728 ':INT32)
                              (RTHRESH-REF2729 ':FLOAT) (DZ_UB-REF2730 ':FLOAT)
                              (IGNORE_CWISE-REF2731 ':INT32)
                              (INFO-REF2732 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2705 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2707 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2708 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2710 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2712 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2713 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2716 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2718 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2720 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2727 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2728 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2729 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2730 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2731 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2732 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2709 A) (AF-REF2711 AF)
                                            (C-REF2714 C) (B-REF2715 B)
                                            (Y-REF2717 Y)
                                            (BERR_OUT-REF2719 BERR_OUT)
                                            (ERR_BNDS_NORM-REF2721
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF2722
                                             ERR_BNDS_COMP)
                                            (RES-REF2723 RES) (AYB-REF2724 AYB)
                                            (DY-REF2725 DY)
                                            (Y_TAIL-REF2726 Y_TAIL))
      (%%CLA_PORFSX_EXTENDED PREC_TYPE-REF2705 UPLO N-REF2707 NRHS-REF2708
                             A-REF2709 LDA-REF2710 AF-REF2711 LDAF-REF2712
                             COLEQU-REF2713 C-REF2714 B-REF2715 LDB-REF2716
                             Y-REF2717 LDY-REF2718 BERR_OUT-REF2719
                             N_NORMS-REF2720 ERR_BNDS_NORM-REF2721
                             ERR_BNDS_COMP-REF2722 RES-REF2723 AYB-REF2724
                             DY-REF2725 Y_TAIL-REF2726 RCOND-REF2727
                             ITHRESH-REF2728 RTHRESH-REF2729 DZ_UB-REF2730
                             IGNORE_CWISE-REF2731 INFO-REF2732))))

(CFFI:DEFCFUN ("cla_porpvgrw_" %%CLA_PORPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF2734 ':INT32) (LDA-REF2736 ':INT32)
                              (LDAF-REF2738 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2734 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2736 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2738 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2735 A) (AF-REF2737 AF)
                                            (WORK-REF2739 WORK))
      (%%CLA_PORPVGRW UPLO NCOLS-REF2734 A-REF2735 LDA-REF2736 AF-REF2737
                      LDAF-REF2738 WORK-REF2739))))

(CFFI:DEFCFUN ("cla_syamv_" %%CLA_SYAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF2740 ':INT32) (N-REF2741 ':INT32)
                              (ALPHA-REF2742 ':FLOAT) (LDA-REF2744 ':INT32)
                              (INCX-REF2746 ':INT32) (BETA-REF2747 ':FLOAT)
                              (INCY-REF2749 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF2740 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2741 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2742 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2744 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2746 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2747 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2749 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2743 A) (X-REF2745 X)
                                            (Y-REF2748 Y))
      (%%CLA_SYAMV UPLO-REF2740 N-REF2741 ALPHA-REF2742 A-REF2743 LDA-REF2744
                   X-REF2745 INCX-REF2746 BETA-REF2747 Y-REF2748
                   INCY-REF2749))))

(CFFI:DEFCFUN ("cla_syrcond_c_" %%CLA_SYRCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_SYRCOND_C
                   (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYRCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2751 ':INT32) (LDA-REF2753 ':INT32)
                              (LDAF-REF2755 ':INT32) (CAPPLY-REF2758 ':INT32)
                              (INFO-REF2759 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2751 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2753 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2755 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2758 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2759 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2752 A) (AF-REF2754 AF)
                                            (IPIV-REF2756 IPIV) (C-REF2757 C)
                                            (WORK-REF2760 WORK)
                                            (RWORK-REF2761 RWORK))
      (%%CLA_SYRCOND_C UPLO N-REF2751 A-REF2752 LDA-REF2753 AF-REF2754
                       LDAF-REF2755 IPIV-REF2756 C-REF2757 CAPPLY-REF2758
                       INFO-REF2759 WORK-REF2760 RWORK-REF2761))))

(CFFI:DEFCFUN ("cla_syrcond_x_" %%CLA_SYRCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_SYRCOND_X (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYRCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2763 ':INT32) (LDA-REF2765 ':INT32)
                              (LDAF-REF2767 ':INT32) (INFO-REF2770 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2763 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2765 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2767 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2770 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2764 A) (AF-REF2766 AF)
                                            (IPIV-REF2768 IPIV) (X-REF2769 X)
                                            (WORK-REF2771 WORK)
                                            (RWORK-REF2772 RWORK))
      (%%CLA_SYRCOND_X UPLO N-REF2763 A-REF2764 LDA-REF2765 AF-REF2766
                       LDAF-REF2767 IPIV-REF2768 X-REF2769 INFO-REF2770
                       WORK-REF2771 RWORK-REF2772))))

(CFFI:DEFCFUN ("cla_syrfsx_extended_" %%CLA_SYRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLA_SYRFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2773 ':INT32) (N-REF2775 ':INT32)
                              (NRHS-REF2776 ':INT32) (LDA-REF2778 ':INT32)
                              (LDAF-REF2780 ':INT32) (COLEQU-REF2782 ':INT32)
                              (LDB-REF2785 ':INT32) (LDY-REF2787 ':INT32)
                              (N_NORMS-REF2789 ':INT32) (RCOND-REF2796 ':FLOAT)
                              (ITHRESH-REF2797 ':INT32)
                              (RTHRESH-REF2798 ':FLOAT) (DZ_UB-REF2799 ':FLOAT)
                              (IGNORE_CWISE-REF2800 ':INT32)
                              (INFO-REF2801 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2773 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2775 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2776 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2778 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2780 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2782 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2785 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2787 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2789 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2796 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2797 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2798 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2799 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2800 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2801 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2777 A) (AF-REF2779 AF)
                                            (IPIV-REF2781 IPIV) (C-REF2783 C)
                                            (B-REF2784 B) (Y-REF2786 Y)
                                            (BERR_OUT-REF2788 BERR_OUT)
                                            (ERR_BNDS_NORM-REF2790
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF2791
                                             ERR_BNDS_COMP)
                                            (RES-REF2792 RES) (AYB-REF2793 AYB)
                                            (DY-REF2794 DY)
                                            (Y_TAIL-REF2795 Y_TAIL))
      (%%CLA_SYRFSX_EXTENDED PREC_TYPE-REF2773 UPLO N-REF2775 NRHS-REF2776
                             A-REF2777 LDA-REF2778 AF-REF2779 LDAF-REF2780
                             IPIV-REF2781 COLEQU-REF2782 C-REF2783 B-REF2784
                             LDB-REF2785 Y-REF2786 LDY-REF2787 BERR_OUT-REF2788
                             N_NORMS-REF2789 ERR_BNDS_NORM-REF2790
                             ERR_BNDS_COMP-REF2791 RES-REF2792 AYB-REF2793
                             DY-REF2794 Y_TAIL-REF2795 RCOND-REF2796
                             ITHRESH-REF2797 RTHRESH-REF2798 DZ_UB-REF2799
                             IGNORE_CWISE-REF2800 INFO-REF2801))))

(CFFI:DEFCFUN ("cla_syrpvgrw_" %%CLA_SYRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYRPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2803 ':INT32) (INFO-REF2804 ':INT32)
                              (LDA-REF2806 ':INT32) (LDAF-REF2808 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2803 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2804 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2806 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2808 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2805 A) (AF-REF2807 AF)
                                            (IPIV-REF2809 IPIV)
                                            (WORK-REF2810 WORK))
      (%%CLA_SYRPVGRW UPLO N-REF2803 INFO-REF2804 A-REF2805 LDA-REF2806
                      AF-REF2807 LDAF-REF2808 IPIV-REF2809 WORK-REF2810))))

(CFFI:DEFCFUN ("cla_wwaddw_" %%CLA_WWADDW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (W :POINTER))

(COMMON-LISP:DEFUN %CLA_WWADDW (N X Y W)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_WWADDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2811 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2811 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2812 X) (Y-REF2813 Y)
                                            (W-REF2814 W))
      (%%CLA_WWADDW N-REF2811 X-REF2812 Y-REF2813 W-REF2814))))

(CFFI:DEFCFUN ("clabrd_" %%CLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %CLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLABRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2815 ':INT32) (N-REF2816 ':INT32)
                              (NB-REF2817 ':INT32) (LDA-REF2819 ':INT32)
                              (LDX-REF2825 ':INT32) (LDY-REF2827 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2815 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2816 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2817 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2819 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2825 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2827 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2818 A) (D-REF2820 D)
                                            (E-REF2821 E) (TAUQ-REF2822 TAUQ)
                                            (TAUP-REF2823 TAUP) (X-REF2824 X)
                                            (Y-REF2826 Y))
      (%%CLABRD M-REF2815 N-REF2816 NB-REF2817 A-REF2818 LDA-REF2819 D-REF2820
                E-REF2821 TAUQ-REF2822 TAUP-REF2823 X-REF2824 LDX-REF2825
                Y-REF2826 LDY-REF2827))))

(CFFI:DEFCFUN ("clacgv_" %%CLACGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CLACGV (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2828 ':INT32) (INCX-REF2830 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2828 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2830 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2829 X))
      (%%CLACGV N-REF2828 X-REF2829 INCX-REF2830))))

(CFFI:DEFCFUN ("clacn2_" %%CLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (EST :POINTER)
  (KASE :POINTER)
  (ISAVE :POINTER))

(COMMON-LISP:DEFUN %CLACN2 (N V X EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2831 ':INT32) (EST-REF2834 ':FLOAT)
                              (KASE-REF2835 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2831 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF2834 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF2835 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF2832 V) (X-REF2833 X)
                                            (ISAVE-REF2836 ISAVE))
      (%%CLACN2 N-REF2831 V-REF2832 X-REF2833 EST-REF2834 KASE-REF2835
                ISAVE-REF2836))))

(CFFI:DEFCFUN ("clacon_" %%CLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (EST :POINTER)
  (KASE :POINTER))

(COMMON-LISP:DEFUN %CLACON (N V X EST KASE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2837 ':INT32) (EST-REF2840 ':FLOAT)
                              (KASE-REF2841 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2837 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF2840 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF2841 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF2838 V) (X-REF2839 X))
      (%%CLACON N-REF2837 V-REF2838 X-REF2839 EST-REF2840 KASE-REF2841))))

(CFFI:DEFCFUN ("clacp2_" %%CLACP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CLACP2 (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACP2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2843 ':INT32) (N-REF2844 ':INT32)
                              (LDA-REF2846 ':INT32) (LDB-REF2848 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2843 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2844 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2846 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2848 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2845 A) (B-REF2847 B))
      (%%CLACP2 UPLO M-REF2843 N-REF2844 A-REF2845 LDA-REF2846 B-REF2847
                LDB-REF2848))))

(CFFI:DEFCFUN ("clacpy_" %%CLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CLACPY (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACPY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2850 ':INT32) (N-REF2851 ':INT32)
                              (LDA-REF2853 ':INT32) (LDB-REF2855 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2850 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2851 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2853 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2855 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2852 A) (B-REF2854 B))
      (%%CLACPY UPLO M-REF2850 N-REF2851 A-REF2852 LDA-REF2853 B-REF2854
                LDB-REF2855))))

(CFFI:DEFCFUN ("clacrm_" %%CLACRM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLACRM (M N A LDA B LDB C LDC RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACRM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2856 ':INT32) (N-REF2857 ':INT32)
                              (LDA-REF2859 ':INT32) (LDB-REF2861 ':INT32)
                              (LDC-REF2863 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2856 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2857 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2859 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2861 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF2863 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2858 A) (B-REF2860 B)
                                            (C-REF2862 C) (RWORK-REF2864 RWORK))
      (%%CLACRM M-REF2856 N-REF2857 A-REF2858 LDA-REF2859 B-REF2860 LDB-REF2861
                C-REF2862 LDC-REF2863 RWORK-REF2864))))

(CFFI:DEFCFUN ("clacrt_" %%CLACRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %CLACRT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2865 ':INT32) (INCX-REF2867 ':INT32)
                              (INCY-REF2869 ':INT32)
                              (C-REF2870
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (S-REF2871
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2865 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2867 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2869 :INT32) INCY)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF2870 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF2871 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF2866 CX) (CY-REF2868 CY))
      (%%CLACRT N-REF2865 CX-REF2866 INCX-REF2867 CY-REF2868 INCY-REF2869
                C-REF2870 S-REF2871))))

(CFFI:DEFCFUN ("cladiv_" %%CLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT
  (X :POINTER)
  (Y :POINTER))

(COMMON-LISP:DEFUN %CLADIV (X Y)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLADIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) Y))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF2872
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (Y-REF2873
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              X-REF2872 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART X)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART X)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              Y-REF2873 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Y)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Y)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLADIV X-REF2872 Y-REF2873))))

(CFFI:DEFCFUN ("claed0_" %%CLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (QSIZ :POINTER)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (QSTORE :POINTER)
  (LDQS :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAED0 (QSIZ N D E Q LDQ QSTORE LDQS RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAED0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        QSTORE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((QSIZ-REF2874 ':INT32) (N-REF2875 ':INT32)
                              (LDQ-REF2879 ':INT32) (LDQS-REF2881 ':INT32)
                              (INFO-REF2884 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2874 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2875 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2879 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF2881 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2884 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2876 D) (E-REF2877 E)
                                            (Q-REF2878 Q)
                                            (QSTORE-REF2880 QSTORE)
                                            (RWORK-REF2882 RWORK)
                                            (IWORK-REF2883 IWORK))
      (%%CLAED0 QSIZ-REF2874 N-REF2875 D-REF2876 E-REF2877 Q-REF2878
                LDQ-REF2879 QSTORE-REF2880 LDQS-REF2881 RWORK-REF2882
                IWORK-REF2883 INFO-REF2884))))

(CFFI:DEFCFUN ("claed7_" %%CLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (CUTPNT :POINTER)
  (QSIZ :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (INDXQ :POINTER)
  (QSTORE :POINTER)
  (QPTR :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAED7
                   (N CUTPNT QSIZ TLVLS CURLVL CURPBM D Q LDQ RHO INDXQ QSTORE
                    QPTR PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAED7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2885 ':INT32) (CUTPNT-REF2886 ':INT32)
                              (QSIZ-REF2887 ':INT32) (TLVLS-REF2888 ':INT32)
                              (CURLVL-REF2889 ':INT32) (CURPBM-REF2890 ':INT32)
                              (LDQ-REF2893 ':INT32) (RHO-REF2894 ':FLOAT)
                              (INFO-REF2906 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2885 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF2886 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2887 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF2888 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF2889 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF2890 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2893 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF2894 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2906 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2891 D) (Q-REF2892 Q)
                                            (INDXQ-REF2895 INDXQ)
                                            (QSTORE-REF2896 QSTORE)
                                            (QPTR-REF2897 QPTR)
                                            (PRMPTR-REF2898 PRMPTR)
                                            (PERM-REF2899 PERM)
                                            (GIVPTR-REF2900 GIVPTR)
                                            (GIVCOL-REF2901 GIVCOL)
                                            (GIVNUM-REF2902 GIVNUM)
                                            (WORK-REF2903 WORK)
                                            (RWORK-REF2904 RWORK)
                                            (IWORK-REF2905 IWORK))
      (%%CLAED7 N-REF2885 CUTPNT-REF2886 QSIZ-REF2887 TLVLS-REF2888
                CURLVL-REF2889 CURPBM-REF2890 D-REF2891 Q-REF2892 LDQ-REF2893
                RHO-REF2894 INDXQ-REF2895 QSTORE-REF2896 QPTR-REF2897
                PRMPTR-REF2898 PERM-REF2899 GIVPTR-REF2900 GIVCOL-REF2901
                GIVNUM-REF2902 WORK-REF2903 RWORK-REF2904 IWORK-REF2905
                INFO-REF2906))))

(CFFI:DEFCFUN ("claed8_" %%CLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (D :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (W :POINTER)
  (INDXP :POINTER)
  (INDX :POINTER)
  (INDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAED8
                   (K N QSIZ Q LDQ D RHO CUTPNT Z DLAMDA Q2 LDQ2 W INDXP INDX
                    INDXQ PERM GIVPTR GIVCOL GIVNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAED8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF2907 ':INT32) (N-REF2908 ':INT32)
                              (QSIZ-REF2909 ':INT32) (LDQ-REF2911 ':INT32)
                              (RHO-REF2913 ':FLOAT) (CUTPNT-REF2914 ':INT32)
                              (LDQ2-REF2918 ':INT32) (GIVPTR-REF2924 ':INT32)
                              (INFO-REF2927 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2907 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2908 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2909 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2911 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF2913 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF2914 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF2918 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF2924 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2927 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF2910 Q) (D-REF2912 D)
                                            (Z-REF2915 Z)
                                            (DLAMDA-REF2916 DLAMDA)
                                            (Q2-REF2917 Q2) (W-REF2919 W)
                                            (INDXP-REF2920 INDXP)
                                            (INDX-REF2921 INDX)
                                            (INDXQ-REF2922 INDXQ)
                                            (PERM-REF2923 PERM)
                                            (GIVCOL-REF2925 GIVCOL)
                                            (GIVNUM-REF2926 GIVNUM))
      (%%CLAED8 K-REF2907 N-REF2908 QSIZ-REF2909 Q-REF2910 LDQ-REF2911
                D-REF2912 RHO-REF2913 CUTPNT-REF2914 Z-REF2915 DLAMDA-REF2916
                Q2-REF2917 LDQ2-REF2918 W-REF2919 INDXP-REF2920 INDX-REF2921
                INDXQ-REF2922 PERM-REF2923 GIVPTR-REF2924 GIVCOL-REF2925
                GIVNUM-REF2926 INFO-REF2927))))

(CFFI:DEFCFUN ("claein_" %%CLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (RIGHTV :POINTER)
  (NOINIT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (V :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RWORK :POINTER)
  (EPS3 :POINTER)
  (SMLNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAEIN
                   (RIGHTV NOINIT N H LDH W V B LDB RWORK EPS3 SMLNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMLNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF2928 ':INT32) (NOINIT-REF2929 ':INT32)
                              (N-REF2930 ':INT32) (LDH-REF2932 ':INT32)
                              (W-REF2933
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDB-REF2936 ':INT32) (EPS3-REF2938 ':FLOAT)
                              (SMLNUM-REF2939 ':FLOAT) (INFO-REF2940 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF2928 :INT32) RIGHTV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF2929 :INT32) NOINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2930 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2932 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              W-REF2933 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART W)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART W)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2936 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF2938 :FLOAT) EPS3)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF2939 :FLOAT) SMLNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2940 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2931 H) (V-REF2934 V)
                                            (B-REF2935 B) (RWORK-REF2937 RWORK))
      (%%CLAEIN RIGHTV-REF2928 NOINIT-REF2929 N-REF2930 H-REF2931 LDH-REF2932
                W-REF2933 V-REF2934 B-REF2935 LDB-REF2936 RWORK-REF2937
                EPS3-REF2938 SMLNUM-REF2939 INFO-REF2940))))

(CFFI:DEFCFUN ("claesy_" %%CLAESY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (EVSCAL :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %CLAESY (A B C RT1 RT2 EVSCAL CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAESY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) RT1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) RT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) EVSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) CS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF2941
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (B-REF2942
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (C-REF2943
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (RT1-REF2944
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (RT2-REF2945
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (EVSCAL-REF2946
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CS1-REF2947
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (SN1-REF2948
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A-REF2941 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B-REF2942 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF2943 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              RT1-REF2944
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              RT2-REF2945
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT2)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              EVSCAL-REF2946
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART EVSCAL)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART EVSCAL)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CS1-REF2947
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CS1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CS1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF2948
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLAESY A-REF2941 B-REF2942 C-REF2943 RT1-REF2944 RT2-REF2945
                EVSCAL-REF2946 CS1-REF2947 SN1-REF2948))))

(CFFI:DEFCFUN ("claev2_" %%CLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %CLAEV2 (A B C RT1 RT2 CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAEV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF2949
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (B-REF2950
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (C-REF2951
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (RT1-REF2952 ':FLOAT) (RT2-REF2953 ':FLOAT)
                              (CS1-REF2954 ':FLOAT)
                              (SN1-REF2955
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A-REF2949 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B-REF2950 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF2951 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF2952 :FLOAT) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF2953 :FLOAT) RT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF2954 :FLOAT) CS1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF2955
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLAEV2 A-REF2949 B-REF2950 C-REF2951 RT1-REF2952 RT2-REF2953
                CS1-REF2954 SN1-REF2955))))

(CFFI:DEFCFUN ("clag2z_" %%CLAG2Z :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAG2Z (M N SA LDSA A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAG2Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2956 ':INT32) (N-REF2957 ':INT32)
                              (LDSA-REF2959 ':INT32) (LDA-REF2961 ':INT32)
                              (INFO-REF2962 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2956 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2957 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF2959 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2961 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2962 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SA-REF2958 SA) (A-REF2960 A))
      (%%CLAG2Z M-REF2956 N-REF2957 SA-REF2958 LDSA-REF2959 A-REF2960
                LDA-REF2961 INFO-REF2962))))

(CFFI:DEFCFUN ("clags2_" %%CLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPPER :POINTER)
  (A1 :POINTER)
  (A2 :POINTER)
  (A3 :POINTER)
  (B1 :POINTER)
  (B2 :POINTER)
  (B3 :POINTER)
  (CSU :POINTER)
  (SNU :POINTER)
  (CSV :POINTER)
  (SNV :POINTER)
  (CSQ :POINTER)
  (SNQ :POINTER))

(COMMON-LISP:DEFUN %CLAGS2 (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) A2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) B2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SNU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SNV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF2963 ':INT32) (A1-REF2964 ':FLOAT)
                              (A2-REF2965
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (A3-REF2966 ':FLOAT) (B1-REF2967 ':FLOAT)
                              (B2-REF2968
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (B3-REF2969 ':FLOAT) (CSU-REF2970 ':FLOAT)
                              (SNU-REF2971
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CSV-REF2972 ':FLOAT)
                              (SNV-REF2973
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CSQ-REF2974 ':FLOAT)
                              (SNQ-REF2975
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF2963 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF2964 :FLOAT) A1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A2-REF2965 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF2966 :FLOAT) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF2967 :FLOAT) B1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B2-REF2968 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF2969 :FLOAT) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF2970 :FLOAT) CSU)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNU-REF2971
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF2972 :FLOAT) CSV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNV-REF2973
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNV)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNV)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF2974 :FLOAT) CSQ)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNQ-REF2975
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNQ)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNQ)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLAGS2 UPPER-REF2963 A1-REF2964 A2-REF2965 A3-REF2966 B1-REF2967
                B2-REF2968 B3-REF2969 CSU-REF2970 SNU-REF2971 CSV-REF2972
                SNV-REF2973 CSQ-REF2974 SNQ-REF2975))))

(CFFI:DEFCFUN ("clagtm_" %%CLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (ALPHA :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (BETA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CLAGTM (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAGTM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2977 ':INT32) (NRHS-REF2978 ':INT32)
                              (ALPHA-REF2979 ':FLOAT) (LDX-REF2984 ':INT32)
                              (BETA-REF2985 ':FLOAT) (LDB-REF2987 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2977 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2978 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2979 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2984 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2985 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2987 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF2980 DL) (D-REF2981 D)
                                            (DU-REF2982 DU) (X-REF2983 X)
                                            (B-REF2986 B))
      (%%CLAGTM TRANS N-REF2977 NRHS-REF2978 ALPHA-REF2979 DL-REF2980 D-REF2981
                DU-REF2982 X-REF2983 LDX-REF2984 BETA-REF2985 B-REF2986
                LDB-REF2987))))

(CFFI:DEFCFUN ("clahef_" %%CLAHEF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAHEF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHEF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2989 ':INT32) (NB-REF2990 ':INT32)
                              (KB-REF2991 ':INT32) (LDA-REF2993 ':INT32)
                              (LDW-REF2996 ':INT32) (INFO-REF2997 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2989 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2990 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF2991 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2993 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF2996 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2997 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2992 A) (IPIV-REF2994 IPIV)
                                            (W-REF2995 W))
      (%%CLAHEF UPLO N-REF2989 NB-REF2990 KB-REF2991 A-REF2992 LDA-REF2993
                IPIV-REF2994 W-REF2995 LDW-REF2996 INFO-REF2997))))

(CFFI:DEFCFUN ("clahef_aa_" %%CLAHEF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLAHEF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHEF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF2999 ':INT32) (M-REF3000 ':INT32)
                              (NB-REF3001 ':INT32) (LDA-REF3003 ':INT32)
                              (LDH-REF3006 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF2999 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3000 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3001 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3003 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3006 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3002 A) (IPIV-REF3004 IPIV)
                                            (H-REF3005 H) (WORK-REF3007 WORK))
      (%%CLAHEF_AA UPLO J1-REF2999 M-REF3000 NB-REF3001 A-REF3002 LDA-REF3003
                   IPIV-REF3004 H-REF3005 LDH-REF3006 WORK-REF3007))))

(CFFI:DEFCFUN ("clahef_rk_" %%CLAHEF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAHEF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHEF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3009 ':INT32) (NB-REF3010 ':INT32)
                              (KB-REF3011 ':INT32) (LDA-REF3013 ':INT32)
                              (LDW-REF3017 ':INT32) (INFO-REF3018 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3009 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3010 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3011 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3013 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3017 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3018 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3012 A) (E-REF3014 E)
                                            (IPIV-REF3015 IPIV) (W-REF3016 W))
      (%%CLAHEF_RK UPLO N-REF3009 NB-REF3010 KB-REF3011 A-REF3012 LDA-REF3013
                   E-REF3014 IPIV-REF3015 W-REF3016 LDW-REF3017 INFO-REF3018))))

(CFFI:DEFCFUN ("clahef_rook_" %%CLAHEF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAHEF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHEF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3020 ':INT32) (NB-REF3021 ':INT32)
                              (KB-REF3022 ':INT32) (LDA-REF3024 ':INT32)
                              (LDW-REF3027 ':INT32) (INFO-REF3028 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3020 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3021 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3022 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3024 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3027 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3028 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3023 A) (IPIV-REF3025 IPIV)
                                            (W-REF3026 W))
      (%%CLAHEF_ROOK UPLO N-REF3020 NB-REF3021 KB-REF3022 A-REF3023 LDA-REF3024
                     IPIV-REF3025 W-REF3026 LDW-REF3027 INFO-REF3028))))

(CFFI:DEFCFUN ("clahqr_" %%CLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAHQR (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3029 ':INT32) (WANTZ-REF3030 ':INT32)
                              (N-REF3031 ':INT32) (ILO-REF3032 ':INT32)
                              (IHI-REF3033 ':INT32) (LDH-REF3035 ':INT32)
                              (ILOZ-REF3037 ':INT32) (IHIZ-REF3038 ':INT32)
                              (LDZ-REF3040 ':INT32) (INFO-REF3041 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3029 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3030 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3032 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3033 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3035 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3037 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3038 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3040 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3041 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3034 H) (W-REF3036 W)
                                            (Z-REF3039 Z))
      (%%CLAHQR WANTT-REF3029 WANTZ-REF3030 N-REF3031 ILO-REF3032 IHI-REF3033
                H-REF3034 LDH-REF3035 W-REF3036 ILOZ-REF3037 IHIZ-REF3038
                Z-REF3039 LDZ-REF3040 INFO-REF3041))))

(CFFI:DEFCFUN ("clahr2_" %%CLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %CLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3042 ':INT32) (K-REF3043 ':INT32)
                              (NB-REF3044 ':INT32) (LDA-REF3046 ':INT32)
                              (LDT-REF3049 ':INT32) (LDY-REF3051 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3042 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3043 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3044 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3046 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3049 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF3051 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3045 A) (TAU-REF3047 TAU)
                                            (T-REF3048 T) (Y-REF3050 Y))
      (%%CLAHR2 N-REF3042 K-REF3043 NB-REF3044 A-REF3045 LDA-REF3046
                TAU-REF3047 T-REF3048 LDT-REF3049 Y-REF3050 LDY-REF3051))))

(CFFI:DEFCFUN ("claic1_" %%CLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (J :POINTER)
  (X :POINTER)
  (SEST :POINTER)
  (W :POINTER)
  (GAMMA :POINTER)
  (SESTPR :POINTER)
  (S :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %CLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAIC1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) GAMMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SESTPR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF3052 ':INT32) (J-REF3053 ':INT32)
                              (SEST-REF3055 ':FLOAT)
                              (GAMMA-REF3057
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (SESTPR-REF3058 ':FLOAT)
                              (S-REF3059
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (C-REF3060
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF3052 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF3053 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF3055 :FLOAT) SEST)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              GAMMA-REF3057
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART GAMMA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART GAMMA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF3058 :FLOAT) SESTPR)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF3059 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF3060 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3054 X) (W-REF3056 W))
      (%%CLAIC1 JOB-REF3052 J-REF3053 X-REF3054 SEST-REF3055 W-REF3056
                GAMMA-REF3057 SESTPR-REF3058 S-REF3059 C-REF3060))))

(CFFI:DEFCFUN ("clals0_" %%CLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLALS0
                   (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL
                    LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLALS0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF3061 ':INT32) (NL-REF3062 ':INT32)
                              (NR-REF3063 ':INT32) (SQRE-REF3064 ':INT32)
                              (NRHS-REF3065 ':INT32) (LDB-REF3067 ':INT32)
                              (LDBX-REF3069 ':INT32) (GIVPTR-REF3071 ':INT32)
                              (LDGCOL-REF3073 ':INT32) (LDGNUM-REF3075 ':INT32)
                              (K-REF3080 ':INT32) (C-REF3081 ':FLOAT)
                              (S-REF3082 ':FLOAT) (INFO-REF3084 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF3061 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF3062 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF3063 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF3064 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3065 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3067 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF3069 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF3071 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF3073 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF3075 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3080 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF3081 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF3082 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3084 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF3066 B) (BX-REF3068 BX)
                                            (PERM-REF3070 PERM)
                                            (GIVCOL-REF3072 GIVCOL)
                                            (GIVNUM-REF3074 GIVNUM)
                                            (POLES-REF3076 POLES)
                                            (DIFL-REF3077 DIFL)
                                            (DIFR-REF3078 DIFR) (Z-REF3079 Z)
                                            (RWORK-REF3083 RWORK))
      (%%CLALS0 ICOMPQ-REF3061 NL-REF3062 NR-REF3063 SQRE-REF3064 NRHS-REF3065
                B-REF3066 LDB-REF3067 BX-REF3068 LDBX-REF3069 PERM-REF3070
                GIVPTR-REF3071 GIVCOL-REF3072 LDGCOL-REF3073 GIVNUM-REF3074
                LDGNUM-REF3075 POLES-REF3076 DIFL-REF3077 DIFR-REF3078
                Z-REF3079 K-REF3080 C-REF3081 S-REF3082 RWORK-REF3083
                INFO-REF3084))))

(CFFI:DEFCFUN ("clalsa_" %%CLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLALSA
                   (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z
                    POLES GIVPTR GIVCOL LDGCOL PERM GIVNUM C S RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLALSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF3085 ':INT32) (SMLSIZ-REF3086 ':INT32)
                              (N-REF3087 ':INT32) (NRHS-REF3088 ':INT32)
                              (LDB-REF3090 ':INT32) (LDBX-REF3092 ':INT32)
                              (LDU-REF3094 ':INT32) (LDGCOL-REF3103 ':INT32)
                              (INFO-REF3110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF3085 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF3086 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3087 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3088 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3090 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF3092 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3094 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF3103 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3110 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF3089 B) (BX-REF3091 BX)
                                            (U-REF3093 U) (VT-REF3095 VT)
                                            (K-REF3096 K) (DIFL-REF3097 DIFL)
                                            (DIFR-REF3098 DIFR) (Z-REF3099 Z)
                                            (POLES-REF3100 POLES)
                                            (GIVPTR-REF3101 GIVPTR)
                                            (GIVCOL-REF3102 GIVCOL)
                                            (PERM-REF3104 PERM)
                                            (GIVNUM-REF3105 GIVNUM)
                                            (C-REF3106 C) (S-REF3107 S)
                                            (RWORK-REF3108 RWORK)
                                            (IWORK-REF3109 IWORK))
      (%%CLALSA ICOMPQ-REF3085 SMLSIZ-REF3086 N-REF3087 NRHS-REF3088 B-REF3089
                LDB-REF3090 BX-REF3091 LDBX-REF3092 U-REF3093 LDU-REF3094
                VT-REF3095 K-REF3096 DIFL-REF3097 DIFR-REF3098 Z-REF3099
                POLES-REF3100 GIVPTR-REF3101 GIVCOL-REF3102 LDGCOL-REF3103
                PERM-REF3104 GIVNUM-REF3105 C-REF3106 S-REF3107 RWORK-REF3108
                IWORK-REF3109 INFO-REF3110))))

(CFFI:DEFCFUN ("clalsd_" %%CLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLALSD
                   (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLALSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF3112 ':INT32) (N-REF3113 ':INT32)
                              (NRHS-REF3114 ':INT32) (LDB-REF3118 ':INT32)
                              (RCOND-REF3119 ':FLOAT) (RANK-REF3120 ':INT32)
                              (INFO-REF3124 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF3112 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3113 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3114 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3118 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3119 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF3120 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3124 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3115 D) (E-REF3116 E)
                                            (B-REF3117 B) (WORK-REF3121 WORK)
                                            (RWORK-REF3122 RWORK)
                                            (IWORK-REF3123 IWORK))
      (%%CLALSD UPLO SMLSIZ-REF3112 N-REF3113 NRHS-REF3114 D-REF3115 E-REF3116
                B-REF3117 LDB-REF3118 RCOND-REF3119 RANK-REF3120 WORK-REF3121
                RWORK-REF3122 IWORK-REF3123 INFO-REF3124))))

(CFFI:DEFCFUN ("clamswlq_" %%CLAMSWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAMSWLQ
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAMSWLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3127 ':INT32) (N-REF3128 ':INT32)
                              (K-REF3129 ':INT32) (MB-REF3130 ':INT32)
                              (NB-REF3131 ':INT32) (LDA-REF3133 ':INT32)
                              (LDT-REF3135 ':INT32) (LDC-REF3137 ':INT32)
                              (LWORK-REF3139 ':INT32) (INFO-REF3140 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3127 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3128 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3129 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3130 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3131 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3133 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3135 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3137 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3139 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3140 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3132 A) (T-REF3134 T)
                                            (C-REF3136 C) (WORK-REF3138 WORK))
      (%%CLAMSWLQ SIDE TRANS M-REF3127 N-REF3128 K-REF3129 MB-REF3130
                  NB-REF3131 A-REF3132 LDA-REF3133 T-REF3134 LDT-REF3135
                  C-REF3136 LDC-REF3137 WORK-REF3138 LWORK-REF3139
                  INFO-REF3140))))

(CFFI:DEFCFUN ("clamtsqr_" %%CLAMTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAMTSQR
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAMTSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3143 ':INT32) (N-REF3144 ':INT32)
                              (K-REF3145 ':INT32) (MB-REF3146 ':INT32)
                              (NB-REF3147 ':INT32) (LDA-REF3149 ':INT32)
                              (LDT-REF3151 ':INT32) (LDC-REF3153 ':INT32)
                              (LWORK-REF3155 ':INT32) (INFO-REF3156 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3143 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3144 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3145 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3146 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3147 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3149 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3151 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3153 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3155 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3156 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3148 A) (T-REF3150 T)
                                            (C-REF3152 C) (WORK-REF3154 WORK))
      (%%CLAMTSQR SIDE TRANS M-REF3143 N-REF3144 K-REF3145 MB-REF3146
                  NB-REF3147 A-REF3148 LDA-REF3149 T-REF3150 LDT-REF3151
                  C-REF3152 LDC-REF3153 WORK-REF3154 LWORK-REF3155
                  INFO-REF3156))))

(CFFI:DEFCFUN ("clangb_" %%CLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANGB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3158 ':INT32) (KL-REF3159 ':INT32)
                              (KU-REF3160 ':INT32) (LDAB-REF3162 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3158 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3159 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3160 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3162 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3161 AB) (WORK-REF3163 WORK))
      (%%CLANGB NORM N-REF3158 KL-REF3159 KU-REF3160 AB-REF3161 LDAB-REF3162
                WORK-REF3163))))

(CFFI:DEFCFUN ("clange_" %%CLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3165 ':INT32) (N-REF3166 ':INT32)
                              (LDA-REF3168 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3165 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3166 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3168 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3167 A) (WORK-REF3169 WORK))
      (%%CLANGE NORM M-REF3165 N-REF3166 A-REF3167 LDA-REF3168 WORK-REF3169))))

(CFFI:DEFCFUN ("clangt_" %%CLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER))

(COMMON-LISP:DEFUN %CLANGT (NORM N DL D DU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANGT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3171 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3171 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF3172 DL) (D-REF3173 D)
                                            (DU-REF3174 DU))
      (%%CLANGT NORM N-REF3171 DL-REF3172 D-REF3173 DU-REF3174))))

(CFFI:DEFCFUN ("clanhb_" %%CLANHB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANHB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3177 ':INT32) (K-REF3178 ':INT32)
                              (LDAB-REF3180 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3177 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3178 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3180 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3179 AB) (WORK-REF3181 WORK))
      (%%CLANHB NORM UPLO N-REF3177 K-REF3178 AB-REF3179 LDAB-REF3180
                WORK-REF3181))))

(CFFI:DEFCFUN ("clanhe_" %%CLANHE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANHE (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3184 ':INT32) (LDA-REF3186 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3184 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3186 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3185 A) (WORK-REF3187 WORK))
      (%%CLANHE NORM UPLO N-REF3184 A-REF3185 LDA-REF3186 WORK-REF3187))))

(CFFI:DEFCFUN ("clanhf_" %%CLANHF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANHF (NORM TRANSR UPLO N A WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3191 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3192 A) (WORK-REF3193 WORK))
      (%%CLANHF NORM TRANSR UPLO N-REF3191 A-REF3192 WORK-REF3193))))

(CFFI:DEFCFUN ("clanhp_" %%CLANHP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANHP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3196 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3196 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3197 AP) (WORK-REF3198 WORK))
      (%%CLANHP NORM UPLO N-REF3196 AP-REF3197 WORK-REF3198))))

(CFFI:DEFCFUN ("clanhs_" %%CLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANHS (NORM N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3200 ':INT32) (LDA-REF3202 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3200 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3202 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3201 A) (WORK-REF3203 WORK))
      (%%CLANHS NORM N-REF3200 A-REF3201 LDA-REF3202 WORK-REF3203))))

(CFFI:DEFCFUN ("clanht_" %%CLANHT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER))

(COMMON-LISP:DEFUN %CLANHT (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3205 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3205 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3206 D) (E-REF3207 E))
      (%%CLANHT NORM N-REF3205 D-REF3206 E-REF3207))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%CBBCSD %CBBCSD %%CBDSQR %CBDSQR %%CGBBRD %CGBBRD
  %%CGBCON %CGBCON %%CGBEQU %CGBEQU %%CGBEQUB %CGBEQUB %%CGBRFS %CGBRFS
  %%CGBRFSX %CGBRFSX %%CGBSV %CGBSV %%CGBSVX %CGBSVX %%CGBSVXX %CGBSVXX
  %%CGBTF2 %CGBTF2 %%CGBTRF %CGBTRF %%CGBTRS %CGBTRS %%CGEBAK %CGEBAK %%CGEBAL
  %CGEBAL %%CGEBD2 %CGEBD2 %%CGEBRD %CGEBRD %%CGECON %CGECON %%CGEEQU %CGEEQU
  %%CGEEQUB %CGEEQUB %%CGEES %CGEES %%CGEESX %CGEESX %%CGEEV %CGEEV %%CGEEVX
  %CGEEVX %%CGEHD2 %CGEHD2 %%CGEHRD %CGEHRD %%CGEJSV %CGEJSV %%CGELQ %CGELQ
  %%CGELQ2 %CGELQ2 %%CGELQF %CGELQF %%CGELQT %CGELQT %%CGELQT3 %CGELQT3 %%CGELS
  %CGELS %%CGELSD %CGELSD %%CGELSS %CGELSS %%CGELSY %CGELSY %%CGEMLQ %CGEMLQ
  %%CGEMLQT %CGEMLQT %%CGEMQR %CGEMQR %%CGEMQRT %CGEMQRT %%CGEQL2 %CGEQL2
  %%CGEQLF %CGEQLF %%CGEQP3 %CGEQP3 %%CGEQR %CGEQR %%CGEQR2 %CGEQR2 %%CGEQR2P
  %CGEQR2P %%CGEQRF %CGEQRF %%CGEQRFP %CGEQRFP %%CGEQRT %CGEQRT %%CGEQRT2
  %CGEQRT2 %%CGEQRT3 %CGEQRT3 %%CGERFS %CGERFS %%CGERFSX %CGERFSX %%CGERQ2
  %CGERQ2 %%CGERQF %CGERQF %%CGESC2 %CGESC2 %%CGESDD %CGESDD %%CGESV %CGESV
  %%CGESVD %CGESVD %%CGESVDQ %CGESVDQ %%CGESVDX %CGESVDX %%CGESVJ %CGESVJ
  %%CGESVX %CGESVX %%CGESVXX %CGESVXX %%CGETC2 %CGETC2 %%CGETF2 %CGETF2
  %%CGETRF %CGETRF %%CGETRF2 %CGETRF2 %%CGETRI %CGETRI %%CGETRS %CGETRS
  %%CGETSLS %CGETSLS %%CGGBAK %CGGBAK %%CGGBAL %CGGBAL %%CGGES %CGGES %%CGGES3
  %CGGES3 %%CGGESX %CGGESX %%CGGEV %CGGEV %%CGGEV3 %CGGEV3 %%CGGEVX %CGGEVX
  %%CGGGLM %CGGGLM %%CGGHD3 %CGGHD3 %%CGGHRD %CGGHRD %%CGGLSE %CGGLSE %%CGGQRF
  %CGGQRF %%CGGRQF %CGGRQF %%CGGSVD3 %CGGSVD3 %%CGGSVP3 %CGGSVP3 %%CGSVJ0
  %CGSVJ0 %%CGSVJ1 %CGSVJ1 %%CGTCON %CGTCON %%CGTRFS %CGTRFS %%CGTSV %CGTSV
  %%CGTSVX %CGTSVX %%CGTTRF %CGTTRF %%CGTTRS %CGTTRS %%CGTTS2 %CGTTS2
  %%CHB2ST_KERNELS %CHB2ST_KERNELS %%CHBEV %CHBEV %%CHBEV_2STAGE %CHBEV_2STAGE
  %%CHBEVD %CHBEVD %%CHBEVD_2STAGE %CHBEVD_2STAGE %%CHBEVX %CHBEVX
  %%CHBEVX_2STAGE %CHBEVX_2STAGE %%CHBGST %CHBGST %%CHBGV %CHBGV %%CHBGVD
  %CHBGVD %%CHBGVX %CHBGVX %%CHBTRD %CHBTRD %%CHECON %CHECON %%CHECON_3
  %CHECON_3 %%CHECON_ROOK %CHECON_ROOK %%CHEEQUB %CHEEQUB %%CHEEV %CHEEV
  %%CHEEV_2STAGE %CHEEV_2STAGE %%CHEEVD %CHEEVD %%CHEEVD_2STAGE %CHEEVD_2STAGE
  %%CHEEVR %CHEEVR %%CHEEVR_2STAGE %CHEEVR_2STAGE %%CHEEVX %CHEEVX
  %%CHEEVX_2STAGE %CHEEVX_2STAGE %%CHEGS2 %CHEGS2 %%CHEGST %CHEGST %%CHEGV
  %CHEGV %%CHEGV_2STAGE %CHEGV_2STAGE %%CHEGVD %CHEGVD %%CHEGVX %CHEGVX
  %%CHERFS %CHERFS %%CHERFSX %CHERFSX %%CHESV %CHESV %%CHESV_AA %CHESV_AA
  %%CHESV_AA_2STAGE %CHESV_AA_2STAGE %%CHESV_RK %CHESV_RK %%CHESV_ROOK
  %CHESV_ROOK %%CHESVX %CHESVX %%CHESVXX %CHESVXX %%CHESWAPR %CHESWAPR %%CHETD2
  %CHETD2 %%CHETF2 %CHETF2 %%CHETF2_RK %CHETF2_RK %%CHETF2_ROOK %CHETF2_ROOK
  %%CHETRD %CHETRD %%CHETRD_2STAGE %CHETRD_2STAGE %%CHETRD_HE2HB %CHETRD_HE2HB
  %%CHETRF %CHETRF %%CHETRF_AA %CHETRF_AA %%CHETRF_AA_2STAGE %CHETRF_AA_2STAGE
  %%CHETRF_RK %CHETRF_RK %%CHETRF_ROOK %CHETRF_ROOK %%CHETRI %CHETRI %%CHETRI2
  %CHETRI2 %%CHETRI2X %CHETRI2X %%CHETRI_3 %CHETRI_3 %%CHETRI_3X %CHETRI_3X
  %%CHETRI_ROOK %CHETRI_ROOK %%CHETRS %CHETRS %%CHETRS2 %CHETRS2 %%CHETRS_3
  %CHETRS_3 %%CHETRS_AA %CHETRS_AA %%CHETRS_AA_2STAGE %CHETRS_AA_2STAGE
  %%CHETRS_ROOK %CHETRS_ROOK %%CHFRK %CHFRK %%CHGEQZ %CHGEQZ %%CHLA_TRANSTYPE
  %CHLA_TRANSTYPE %%CHPCON %CHPCON %%CHPEV %CHPEV %%CHPEVD %CHPEVD %%CHPEVX
  %CHPEVX %%CHPGST %CHPGST %%CHPGV %CHPGV %%CHPGVD %CHPGVD %%CHPGVX %CHPGVX
  %%CHPRFS %CHPRFS %%CHPSV %CHPSV %%CHPSVX %CHPSVX %%CHPTRD %CHPTRD %%CHPTRF
  %CHPTRF %%CHPTRI %CHPTRI %%CHPTRS %CHPTRS %%CHSEIN %CHSEIN %%CHSEQR %CHSEQR
  %%CLA_GBAMV %CLA_GBAMV %%CLA_GBRCOND_C %CLA_GBRCOND_C %%CLA_GBRCOND_X
  %CLA_GBRCOND_X %%CLA_GBRFSX_EXTENDED %CLA_GBRFSX_EXTENDED %%CLA_GBRPVGRW
  %CLA_GBRPVGRW %%CLA_GEAMV %CLA_GEAMV %%CLA_GERCOND_C %CLA_GERCOND_C
  %%CLA_GERCOND_X %CLA_GERCOND_X %%CLA_GERFSX_EXTENDED %CLA_GERFSX_EXTENDED
  %%CLA_GERPVGRW %CLA_GERPVGRW %%CLA_HEAMV %CLA_HEAMV %%CLA_HERCOND_C
  %CLA_HERCOND_C %%CLA_HERCOND_X %CLA_HERCOND_X %%CLA_HERFSX_EXTENDED
  %CLA_HERFSX_EXTENDED %%CLA_HERPVGRW %CLA_HERPVGRW %%CLA_LIN_BERR
  %CLA_LIN_BERR %%CLA_PORCOND_C %CLA_PORCOND_C %%CLA_PORCOND_X %CLA_PORCOND_X
  %%CLA_PORFSX_EXTENDED %CLA_PORFSX_EXTENDED %%CLA_PORPVGRW %CLA_PORPVGRW
  %%CLA_SYAMV %CLA_SYAMV %%CLA_SYRCOND_C %CLA_SYRCOND_C %%CLA_SYRCOND_X
  %CLA_SYRCOND_X %%CLA_SYRFSX_EXTENDED %CLA_SYRFSX_EXTENDED %%CLA_SYRPVGRW
  %CLA_SYRPVGRW %%CLA_WWADDW %CLA_WWADDW %%CLABRD %CLABRD %%CLACGV %CLACGV
  %%CLACN2 %CLACN2 %%CLACON %CLACON %%CLACP2 %CLACP2 %%CLACPY %CLACPY %%CLACRM
  %CLACRM %%CLACRT %CLACRT %%CLADIV %CLADIV %%CLAED0 %CLAED0 %%CLAED7 %CLAED7
  %%CLAED8 %CLAED8 %%CLAEIN %CLAEIN %%CLAESY %CLAESY %%CLAEV2 %CLAEV2 %%CLAG2Z
  %CLAG2Z %%CLAGS2 %CLAGS2 %%CLAGTM %CLAGTM %%CLAHEF %CLAHEF %%CLAHEF_AA
  %CLAHEF_AA %%CLAHEF_RK %CLAHEF_RK %%CLAHEF_ROOK %CLAHEF_ROOK %%CLAHQR %CLAHQR
  %%CLAHR2 %CLAHR2 %%CLAIC1 %CLAIC1 %%CLALS0 %CLALS0 %%CLALSA %CLALSA %%CLALSD
  %CLALSD %%CLAMSWLQ %CLAMSWLQ %%CLAMTSQR %CLAMTSQR %%CLANGB %CLANGB %%CLANGE
  %CLANGE %%CLANGT %CLANGT %%CLANHB %CLANHB %%CLANHE %CLANHE %%CLANHF %CLANHF
  %%CLANHP %CLANHP %%CLANHS %CLANHS %%CLANHT %CLANHT))

(COMMON-LISP:SETF (COMMON-LISP:GETF
                   (COMMON-LISP:SYMBOL-PLIST
                    'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
                   ':MAGICL)
                    '(("CBBCSD" "cbbcsd_" %%CBBCSD %CBBCSD)
                      ("CBDSQR" "cbdsqr_" %%CBDSQR %CBDSQR)
                      ("CGBBRD" "cgbbrd_" %%CGBBRD %CGBBRD)
                      ("CGBCON" "cgbcon_" %%CGBCON %CGBCON)
                      ("CGBEQU" "cgbequ_" %%CGBEQU %CGBEQU)
                      ("CGBEQUB" "cgbequb_" %%CGBEQUB %CGBEQUB)
                      ("CGBRFS" "cgbrfs_" %%CGBRFS %CGBRFS)
                      ("CGBRFSX" "cgbrfsx_" %%CGBRFSX %CGBRFSX)
                      ("CGBSV" "cgbsv_" %%CGBSV %CGBSV)
                      ("CGBSVX" "cgbsvx_" %%CGBSVX %CGBSVX)
                      ("CGBSVXX" "cgbsvxx_" %%CGBSVXX %CGBSVXX)
                      ("CGBTF2" "cgbtf2_" %%CGBTF2 %CGBTF2)
                      ("CGBTRF" "cgbtrf_" %%CGBTRF %CGBTRF)
                      ("CGBTRS" "cgbtrs_" %%CGBTRS %CGBTRS)
                      ("CGEBAK" "cgebak_" %%CGEBAK %CGEBAK)
                      ("CGEBAL" "cgebal_" %%CGEBAL %CGEBAL)
                      ("CGEBD2" "cgebd2_" %%CGEBD2 %CGEBD2)
                      ("CGEBRD" "cgebrd_" %%CGEBRD %CGEBRD)
                      ("CGECON" "cgecon_" %%CGECON %CGECON)
                      ("CGEEQU" "cgeequ_" %%CGEEQU %CGEEQU)
                      ("CGEEQUB" "cgeequb_" %%CGEEQUB %CGEEQUB)
                      ("CGEES" "cgees_" %%CGEES %CGEES)
                      ("CGEESX" "cgeesx_" %%CGEESX %CGEESX)
                      ("CGEEV" "cgeev_" %%CGEEV %CGEEV)
                      ("CGEEVX" "cgeevx_" %%CGEEVX %CGEEVX)
                      ("CGEHD2" "cgehd2_" %%CGEHD2 %CGEHD2)
                      ("CGEHRD" "cgehrd_" %%CGEHRD %CGEHRD)
                      ("CGEJSV" "cgejsv_" %%CGEJSV %CGEJSV)
                      ("CGELQ" "cgelq_" %%CGELQ %CGELQ)
                      ("CGELQ2" "cgelq2_" %%CGELQ2 %CGELQ2)
                      ("CGELQF" "cgelqf_" %%CGELQF %CGELQF)
                      ("CGELQT" "cgelqt_" %%CGELQT %CGELQT)
                      ("CGELQT3" "cgelqt3_" %%CGELQT3 %CGELQT3)
                      ("CGELS" "cgels_" %%CGELS %CGELS)
                      ("CGELSD" "cgelsd_" %%CGELSD %CGELSD)
                      ("CGELSS" "cgelss_" %%CGELSS %CGELSS)
                      ("CGELSY" "cgelsy_" %%CGELSY %CGELSY)
                      ("CGEMLQ" "cgemlq_" %%CGEMLQ %CGEMLQ)
                      ("CGEMLQT" "cgemlqt_" %%CGEMLQT %CGEMLQT)
                      ("CGEMQR" "cgemqr_" %%CGEMQR %CGEMQR)
                      ("CGEMQRT" "cgemqrt_" %%CGEMQRT %CGEMQRT)
                      ("CGEQL2" "cgeql2_" %%CGEQL2 %CGEQL2)
                      ("CGEQLF" "cgeqlf_" %%CGEQLF %CGEQLF)
                      ("CGEQP3" "cgeqp3_" %%CGEQP3 %CGEQP3)
                      ("CGEQR" "cgeqr_" %%CGEQR %CGEQR)
                      ("CGEQR2" "cgeqr2_" %%CGEQR2 %CGEQR2)
                      ("CGEQR2P" "cgeqr2p_" %%CGEQR2P %CGEQR2P)
                      ("CGEQRF" "cgeqrf_" %%CGEQRF %CGEQRF)
                      ("CGEQRFP" "cgeqrfp_" %%CGEQRFP %CGEQRFP)
                      ("CGEQRT" "cgeqrt_" %%CGEQRT %CGEQRT)
                      ("CGEQRT2" "cgeqrt2_" %%CGEQRT2 %CGEQRT2)
                      ("CGEQRT3" "cgeqrt3_" %%CGEQRT3 %CGEQRT3)
                      ("CGERFS" "cgerfs_" %%CGERFS %CGERFS)
                      ("CGERFSX" "cgerfsx_" %%CGERFSX %CGERFSX)
                      ("CGERQ2" "cgerq2_" %%CGERQ2 %CGERQ2)
                      ("CGERQF" "cgerqf_" %%CGERQF %CGERQF)
                      ("CGESC2" "cgesc2_" %%CGESC2 %CGESC2)
                      ("CGESDD" "cgesdd_" %%CGESDD %CGESDD)
                      ("CGESV" "cgesv_" %%CGESV %CGESV)
                      ("CGESVD" "cgesvd_" %%CGESVD %CGESVD)
                      ("CGESVDQ" "cgesvdq_" %%CGESVDQ %CGESVDQ)
                      ("CGESVDX" "cgesvdx_" %%CGESVDX %CGESVDX)
                      ("CGESVJ" "cgesvj_" %%CGESVJ %CGESVJ)
                      ("CGESVX" "cgesvx_" %%CGESVX %CGESVX)
                      ("CGESVXX" "cgesvxx_" %%CGESVXX %CGESVXX)
                      ("CGETC2" "cgetc2_" %%CGETC2 %CGETC2)
                      ("CGETF2" "cgetf2_" %%CGETF2 %CGETF2)
                      ("CGETRF" "cgetrf_" %%CGETRF %CGETRF)
                      ("CGETRF2" "cgetrf2_" %%CGETRF2 %CGETRF2)
                      ("CGETRI" "cgetri_" %%CGETRI %CGETRI)
                      ("CGETRS" "cgetrs_" %%CGETRS %CGETRS)
                      ("CGETSLS" "cgetsls_" %%CGETSLS %CGETSLS)
                      ("CGGBAK" "cggbak_" %%CGGBAK %CGGBAK)
                      ("CGGBAL" "cggbal_" %%CGGBAL %CGGBAL)
                      ("CGGES" "cgges_" %%CGGES %CGGES)
                      ("CGGES3" "cgges3_" %%CGGES3 %CGGES3)
                      ("CGGESX" "cggesx_" %%CGGESX %CGGESX)
                      ("CGGEV" "cggev_" %%CGGEV %CGGEV)
                      ("CGGEV3" "cggev3_" %%CGGEV3 %CGGEV3)
                      ("CGGEVX" "cggevx_" %%CGGEVX %CGGEVX)
                      ("CGGGLM" "cggglm_" %%CGGGLM %CGGGLM)
                      ("CGGHD3" "cgghd3_" %%CGGHD3 %CGGHD3)
                      ("CGGHRD" "cgghrd_" %%CGGHRD %CGGHRD)
                      ("CGGLSE" "cgglse_" %%CGGLSE %CGGLSE)
                      ("CGGQRF" "cggqrf_" %%CGGQRF %CGGQRF)
                      ("CGGRQF" "cggrqf_" %%CGGRQF %CGGRQF)
                      ("CGGSVD3" "cggsvd3_" %%CGGSVD3 %CGGSVD3)
                      ("CGGSVP3" "cggsvp3_" %%CGGSVP3 %CGGSVP3)
                      ("CGSVJ0" "cgsvj0_" %%CGSVJ0 %CGSVJ0)
                      ("CGSVJ1" "cgsvj1_" %%CGSVJ1 %CGSVJ1)
                      ("CGTCON" "cgtcon_" %%CGTCON %CGTCON)
                      ("CGTRFS" "cgtrfs_" %%CGTRFS %CGTRFS)
                      ("CGTSV" "cgtsv_" %%CGTSV %CGTSV)
                      ("CGTSVX" "cgtsvx_" %%CGTSVX %CGTSVX)
                      ("CGTTRF" "cgttrf_" %%CGTTRF %CGTTRF)
                      ("CGTTRS" "cgttrs_" %%CGTTRS %CGTTRS)
                      ("CGTTS2" "cgtts2_" %%CGTTS2 %CGTTS2)
                      ("CHB2ST_KERNELS" "chb2st_kernels_" %%CHB2ST_KERNELS
                       %CHB2ST_KERNELS)
                      ("CHBEV" "chbev_" %%CHBEV %CHBEV)
                      ("CHBEV_2STAGE" "chbev_2stage_" %%CHBEV_2STAGE
                       %CHBEV_2STAGE)
                      ("CHBEVD" "chbevd_" %%CHBEVD %CHBEVD)
                      ("CHBEVD_2STAGE" "chbevd_2stage_" %%CHBEVD_2STAGE
                       %CHBEVD_2STAGE)
                      ("CHBEVX" "chbevx_" %%CHBEVX %CHBEVX)
                      ("CHBEVX_2STAGE" "chbevx_2stage_" %%CHBEVX_2STAGE
                       %CHBEVX_2STAGE)
                      ("CHBGST" "chbgst_" %%CHBGST %CHBGST)
                      ("CHBGV" "chbgv_" %%CHBGV %CHBGV)
                      ("CHBGVD" "chbgvd_" %%CHBGVD %CHBGVD)
                      ("CHBGVX" "chbgvx_" %%CHBGVX %CHBGVX)
                      ("CHBTRD" "chbtrd_" %%CHBTRD %CHBTRD)
                      ("CHECON" "checon_" %%CHECON %CHECON)
                      ("CHECON_3" "checon_3_" %%CHECON_3 %CHECON_3)
                      ("CHECON_ROOK" "checon_rook_" %%CHECON_ROOK %CHECON_ROOK)
                      ("CHEEQUB" "cheequb_" %%CHEEQUB %CHEEQUB)
                      ("CHEEV" "cheev_" %%CHEEV %CHEEV)
                      ("CHEEV_2STAGE" "cheev_2stage_" %%CHEEV_2STAGE
                       %CHEEV_2STAGE)
                      ("CHEEVD" "cheevd_" %%CHEEVD %CHEEVD)
                      ("CHEEVD_2STAGE" "cheevd_2stage_" %%CHEEVD_2STAGE
                       %CHEEVD_2STAGE)
                      ("CHEEVR" "cheevr_" %%CHEEVR %CHEEVR)
                      ("CHEEVR_2STAGE" "cheevr_2stage_" %%CHEEVR_2STAGE
                       %CHEEVR_2STAGE)
                      ("CHEEVX" "cheevx_" %%CHEEVX %CHEEVX)
                      ("CHEEVX_2STAGE" "cheevx_2stage_" %%CHEEVX_2STAGE
                       %CHEEVX_2STAGE)
                      ("CHEGS2" "chegs2_" %%CHEGS2 %CHEGS2)
                      ("CHEGST" "chegst_" %%CHEGST %CHEGST)
                      ("CHEGV" "chegv_" %%CHEGV %CHEGV)
                      ("CHEGV_2STAGE" "chegv_2stage_" %%CHEGV_2STAGE
                       %CHEGV_2STAGE)
                      ("CHEGVD" "chegvd_" %%CHEGVD %CHEGVD)
                      ("CHEGVX" "chegvx_" %%CHEGVX %CHEGVX)
                      ("CHERFS" "cherfs_" %%CHERFS %CHERFS)
                      ("CHERFSX" "cherfsx_" %%CHERFSX %CHERFSX)
                      ("CHESV" "chesv_" %%CHESV %CHESV)
                      ("CHESV_AA" "chesv_aa_" %%CHESV_AA %CHESV_AA)
                      ("CHESV_AA_2STAGE" "chesv_aa_2stage_" %%CHESV_AA_2STAGE
                       %CHESV_AA_2STAGE)
                      ("CHESV_RK" "chesv_rk_" %%CHESV_RK %CHESV_RK)
                      ("CHESV_ROOK" "chesv_rook_" %%CHESV_ROOK %CHESV_ROOK)
                      ("CHESVX" "chesvx_" %%CHESVX %CHESVX)
                      ("CHESVXX" "chesvxx_" %%CHESVXX %CHESVXX)
                      ("CHESWAPR" "cheswapr_" %%CHESWAPR %CHESWAPR)
                      ("CHETD2" "chetd2_" %%CHETD2 %CHETD2)
                      ("CHETF2" "chetf2_" %%CHETF2 %CHETF2)
                      ("CHETF2_RK" "chetf2_rk_" %%CHETF2_RK %CHETF2_RK)
                      ("CHETF2_ROOK" "chetf2_rook_" %%CHETF2_ROOK %CHETF2_ROOK)
                      ("CHETRD" "chetrd_" %%CHETRD %CHETRD)
                      ("CHETRD_2STAGE" "chetrd_2stage_" %%CHETRD_2STAGE
                       %CHETRD_2STAGE)
                      ("CHETRD_HE2HB" "chetrd_he2hb_" %%CHETRD_HE2HB
                       %CHETRD_HE2HB)
                      ("CHETRF" "chetrf_" %%CHETRF %CHETRF)
                      ("CHETRF_AA" "chetrf_aa_" %%CHETRF_AA %CHETRF_AA)
                      ("CHETRF_AA_2STAGE" "chetrf_aa_2stage_"
                       %%CHETRF_AA_2STAGE %CHETRF_AA_2STAGE)
                      ("CHETRF_RK" "chetrf_rk_" %%CHETRF_RK %CHETRF_RK)
                      ("CHETRF_ROOK" "chetrf_rook_" %%CHETRF_ROOK %CHETRF_ROOK)
                      ("CHETRI" "chetri_" %%CHETRI %CHETRI)
                      ("CHETRI2" "chetri2_" %%CHETRI2 %CHETRI2)
                      ("CHETRI2X" "chetri2x_" %%CHETRI2X %CHETRI2X)
                      ("CHETRI_3" "chetri_3_" %%CHETRI_3 %CHETRI_3)
                      ("CHETRI_3X" "chetri_3x_" %%CHETRI_3X %CHETRI_3X)
                      ("CHETRI_ROOK" "chetri_rook_" %%CHETRI_ROOK %CHETRI_ROOK)
                      ("CHETRS" "chetrs_" %%CHETRS %CHETRS)
                      ("CHETRS2" "chetrs2_" %%CHETRS2 %CHETRS2)
                      ("CHETRS_3" "chetrs_3_" %%CHETRS_3 %CHETRS_3)
                      ("CHETRS_AA" "chetrs_aa_" %%CHETRS_AA %CHETRS_AA)
                      ("CHETRS_AA_2STAGE" "chetrs_aa_2stage_"
                       %%CHETRS_AA_2STAGE %CHETRS_AA_2STAGE)
                      ("CHETRS_ROOK" "chetrs_rook_" %%CHETRS_ROOK %CHETRS_ROOK)
                      ("CHFRK" "chfrk_" %%CHFRK %CHFRK)
                      ("CHGEQZ" "chgeqz_" %%CHGEQZ %CHGEQZ)
                      ("CHLA_TRANSTYPE" "chla_transtype_" %%CHLA_TRANSTYPE
                       %CHLA_TRANSTYPE)
                      ("CHPCON" "chpcon_" %%CHPCON %CHPCON)
                      ("CHPEV" "chpev_" %%CHPEV %CHPEV)
                      ("CHPEVD" "chpevd_" %%CHPEVD %CHPEVD)
                      ("CHPEVX" "chpevx_" %%CHPEVX %CHPEVX)
                      ("CHPGST" "chpgst_" %%CHPGST %CHPGST)
                      ("CHPGV" "chpgv_" %%CHPGV %CHPGV)
                      ("CHPGVD" "chpgvd_" %%CHPGVD %CHPGVD)
                      ("CHPGVX" "chpgvx_" %%CHPGVX %CHPGVX)
                      ("CHPRFS" "chprfs_" %%CHPRFS %CHPRFS)
                      ("CHPSV" "chpsv_" %%CHPSV %CHPSV)
                      ("CHPSVX" "chpsvx_" %%CHPSVX %CHPSVX)
                      ("CHPTRD" "chptrd_" %%CHPTRD %CHPTRD)
                      ("CHPTRF" "chptrf_" %%CHPTRF %CHPTRF)
                      ("CHPTRI" "chptri_" %%CHPTRI %CHPTRI)
                      ("CHPTRS" "chptrs_" %%CHPTRS %CHPTRS)
                      ("CHSEIN" "chsein_" %%CHSEIN %CHSEIN)
                      ("CHSEQR" "chseqr_" %%CHSEQR %CHSEQR)
                      ("CLA_GBAMV" "cla_gbamv_" %%CLA_GBAMV %CLA_GBAMV)
                      ("CLA_GBRCOND_C" "cla_gbrcond_c_" %%CLA_GBRCOND_C
                       %CLA_GBRCOND_C)
                      ("CLA_GBRCOND_X" "cla_gbrcond_x_" %%CLA_GBRCOND_X
                       %CLA_GBRCOND_X)
                      ("CLA_GBRFSX_EXTENDED" "cla_gbrfsx_extended_"
                       %%CLA_GBRFSX_EXTENDED %CLA_GBRFSX_EXTENDED)
                      ("CLA_GBRPVGRW" "cla_gbrpvgrw_" %%CLA_GBRPVGRW
                       %CLA_GBRPVGRW)
                      ("CLA_GEAMV" "cla_geamv_" %%CLA_GEAMV %CLA_GEAMV)
                      ("CLA_GERCOND_C" "cla_gercond_c_" %%CLA_GERCOND_C
                       %CLA_GERCOND_C)
                      ("CLA_GERCOND_X" "cla_gercond_x_" %%CLA_GERCOND_X
                       %CLA_GERCOND_X)
                      ("CLA_GERFSX_EXTENDED" "cla_gerfsx_extended_"
                       %%CLA_GERFSX_EXTENDED %CLA_GERFSX_EXTENDED)
                      ("CLA_GERPVGRW" "cla_gerpvgrw_" %%CLA_GERPVGRW
                       %CLA_GERPVGRW)
                      ("CLA_HEAMV" "cla_heamv_" %%CLA_HEAMV %CLA_HEAMV)
                      ("CLA_HERCOND_C" "cla_hercond_c_" %%CLA_HERCOND_C
                       %CLA_HERCOND_C)
                      ("CLA_HERCOND_X" "cla_hercond_x_" %%CLA_HERCOND_X
                       %CLA_HERCOND_X)
                      ("CLA_HERFSX_EXTENDED" "cla_herfsx_extended_"
                       %%CLA_HERFSX_EXTENDED %CLA_HERFSX_EXTENDED)
                      ("CLA_HERPVGRW" "cla_herpvgrw_" %%CLA_HERPVGRW
                       %CLA_HERPVGRW)
                      ("CLA_LIN_BERR" "cla_lin_berr_" %%CLA_LIN_BERR
                       %CLA_LIN_BERR)
                      ("CLA_PORCOND_C" "cla_porcond_c_" %%CLA_PORCOND_C
                       %CLA_PORCOND_C)
                      ("CLA_PORCOND_X" "cla_porcond_x_" %%CLA_PORCOND_X
                       %CLA_PORCOND_X)
                      ("CLA_PORFSX_EXTENDED" "cla_porfsx_extended_"
                       %%CLA_PORFSX_EXTENDED %CLA_PORFSX_EXTENDED)
                      ("CLA_PORPVGRW" "cla_porpvgrw_" %%CLA_PORPVGRW
                       %CLA_PORPVGRW)
                      ("CLA_SYAMV" "cla_syamv_" %%CLA_SYAMV %CLA_SYAMV)
                      ("CLA_SYRCOND_C" "cla_syrcond_c_" %%CLA_SYRCOND_C
                       %CLA_SYRCOND_C)
                      ("CLA_SYRCOND_X" "cla_syrcond_x_" %%CLA_SYRCOND_X
                       %CLA_SYRCOND_X)
                      ("CLA_SYRFSX_EXTENDED" "cla_syrfsx_extended_"
                       %%CLA_SYRFSX_EXTENDED %CLA_SYRFSX_EXTENDED)
                      ("CLA_SYRPVGRW" "cla_syrpvgrw_" %%CLA_SYRPVGRW
                       %CLA_SYRPVGRW)
                      ("CLA_WWADDW" "cla_wwaddw_" %%CLA_WWADDW %CLA_WWADDW)
                      ("CLABRD" "clabrd_" %%CLABRD %CLABRD)
                      ("CLACGV" "clacgv_" %%CLACGV %CLACGV)
                      ("CLACN2" "clacn2_" %%CLACN2 %CLACN2)
                      ("CLACON" "clacon_" %%CLACON %CLACON)
                      ("CLACP2" "clacp2_" %%CLACP2 %CLACP2)
                      ("CLACPY" "clacpy_" %%CLACPY %CLACPY)
                      ("CLACRM" "clacrm_" %%CLACRM %CLACRM)
                      ("CLACRT" "clacrt_" %%CLACRT %CLACRT)
                      ("CLADIV" "cladiv_" %%CLADIV %CLADIV)
                      ("CLAED0" "claed0_" %%CLAED0 %CLAED0)
                      ("CLAED7" "claed7_" %%CLAED7 %CLAED7)
                      ("CLAED8" "claed8_" %%CLAED8 %CLAED8)
                      ("CLAEIN" "claein_" %%CLAEIN %CLAEIN)
                      ("CLAESY" "claesy_" %%CLAESY %CLAESY)
                      ("CLAEV2" "claev2_" %%CLAEV2 %CLAEV2)
                      ("CLAG2Z" "clag2z_" %%CLAG2Z %CLAG2Z)
                      ("CLAGS2" "clags2_" %%CLAGS2 %CLAGS2)
                      ("CLAGTM" "clagtm_" %%CLAGTM %CLAGTM)
                      ("CLAHEF" "clahef_" %%CLAHEF %CLAHEF)
                      ("CLAHEF_AA" "clahef_aa_" %%CLAHEF_AA %CLAHEF_AA)
                      ("CLAHEF_RK" "clahef_rk_" %%CLAHEF_RK %CLAHEF_RK)
                      ("CLAHEF_ROOK" "clahef_rook_" %%CLAHEF_ROOK %CLAHEF_ROOK)
                      ("CLAHQR" "clahqr_" %%CLAHQR %CLAHQR)
                      ("CLAHR2" "clahr2_" %%CLAHR2 %CLAHR2)
                      ("CLAIC1" "claic1_" %%CLAIC1 %CLAIC1)
                      ("CLALS0" "clals0_" %%CLALS0 %CLALS0)
                      ("CLALSA" "clalsa_" %%CLALSA %CLALSA)
                      ("CLALSD" "clalsd_" %%CLALSD %CLALSD)
                      ("CLAMSWLQ" "clamswlq_" %%CLAMSWLQ %CLAMSWLQ)
                      ("CLAMTSQR" "clamtsqr_" %%CLAMTSQR %CLAMTSQR)
                      ("CLANGB" "clangb_" %%CLANGB %CLANGB)
                      ("CLANGE" "clange_" %%CLANGE %CLANGE)
                      ("CLANGT" "clangt_" %%CLANGT %CLANGT)
                      ("CLANHB" "clanhb_" %%CLANHB %CLANHB)
                      ("CLANHE" "clanhe_" %%CLANHE %CLANHE)
                      ("CLANHF" "clanhf_" %%CLANHF %CLANHF)
                      ("CLANHP" "clanhp_" %%CLANHP %CLANHP)
                      ("CLANHS" "clanhs_" %%CLANHS %CLANHS)
                      ("CLANHT" "clanht_" %%CLANHT %CLANHT)))

(COMMON-LISP:EXPORT
 '(%CBBCSD %CBDSQR %CGBBRD %CGBCON %CGBEQU %CGBEQUB %CGBRFS %CGBRFSX %CGBSV
           %CGBSVX %CGBSVXX %CGBTF2 %CGBTRF %CGBTRS %CGEBAK %CGEBAL %CGEBD2
           %CGEBRD %CGECON %CGEEQU %CGEEQUB %CGEES %CGEESX %CGEEV %CGEEVX
           %CGEHD2 %CGEHRD %CGEJSV %CGELQ %CGELQ2 %CGELQF %CGELQT %CGELQT3
           %CGELS %CGELSD %CGELSS %CGELSY %CGEMLQ %CGEMLQT %CGEMQR %CGEMQRT
           %CGEQL2 %CGEQLF %CGEQP3 %CGEQR %CGEQR2 %CGEQR2P %CGEQRF %CGEQRFP
           %CGEQRT %CGEQRT2 %CGEQRT3 %CGERFS %CGERFSX %CGERQ2 %CGERQF %CGESC2
           %CGESDD %CGESV %CGESVD %CGESVDQ %CGESVDX %CGESVJ %CGESVX %CGESVXX
           %CGETC2 %CGETF2 %CGETRF %CGETRF2 %CGETRI %CGETRS %CGETSLS %CGGBAK
           %CGGBAL %CGGES %CGGES3 %CGGESX %CGGEV %CGGEV3 %CGGEVX %CGGGLM
           %CGGHD3 %CGGHRD %CGGLSE %CGGQRF %CGGRQF %CGGSVD3 %CGGSVP3 %CGSVJ0
           %CGSVJ1 %CGTCON %CGTRFS %CGTSV %CGTSVX %CGTTRF %CGTTRS %CGTTS2
           %CHB2ST_KERNELS %CHBEV %CHBEV_2STAGE %CHBEVD %CHBEVD_2STAGE %CHBEVX
           %CHBEVX_2STAGE %CHBGST %CHBGV %CHBGVD %CHBGVX %CHBTRD %CHECON
           %CHECON_3 %CHECON_ROOK %CHEEQUB %CHEEV %CHEEV_2STAGE %CHEEVD
           %CHEEVD_2STAGE %CHEEVR %CHEEVR_2STAGE %CHEEVX %CHEEVX_2STAGE %CHEGS2
           %CHEGST %CHEGV %CHEGV_2STAGE %CHEGVD %CHEGVX %CHERFS %CHERFSX %CHESV
           %CHESV_AA %CHESV_AA_2STAGE %CHESV_RK %CHESV_ROOK %CHESVX %CHESVXX
           %CHESWAPR %CHETD2 %CHETF2 %CHETF2_RK %CHETF2_ROOK %CHETRD
           %CHETRD_2STAGE %CHETRD_HE2HB %CHETRF %CHETRF_AA %CHETRF_AA_2STAGE
           %CHETRF_RK %CHETRF_ROOK %CHETRI %CHETRI2 %CHETRI2X %CHETRI_3
           %CHETRI_3X %CHETRI_ROOK %CHETRS %CHETRS2 %CHETRS_3 %CHETRS_AA
           %CHETRS_AA_2STAGE %CHETRS_ROOK %CHFRK %CHGEQZ %CHLA_TRANSTYPE
           %CHPCON %CHPEV %CHPEVD %CHPEVX %CHPGST %CHPGV %CHPGVD %CHPGVX
           %CHPRFS %CHPSV %CHPSVX %CHPTRD %CHPTRF %CHPTRI %CHPTRS %CHSEIN
           %CHSEQR %CLA_GBAMV %CLA_GBRCOND_C %CLA_GBRCOND_X
           %CLA_GBRFSX_EXTENDED %CLA_GBRPVGRW %CLA_GEAMV %CLA_GERCOND_C
           %CLA_GERCOND_X %CLA_GERFSX_EXTENDED %CLA_GERPVGRW %CLA_HEAMV
           %CLA_HERCOND_C %CLA_HERCOND_X %CLA_HERFSX_EXTENDED %CLA_HERPVGRW
           %CLA_LIN_BERR %CLA_PORCOND_C %CLA_PORCOND_X %CLA_PORFSX_EXTENDED
           %CLA_PORPVGRW %CLA_SYAMV %CLA_SYRCOND_C %CLA_SYRCOND_X
           %CLA_SYRFSX_EXTENDED %CLA_SYRPVGRW %CLA_WWADDW %CLABRD %CLACGV
           %CLACN2 %CLACON %CLACP2 %CLACPY %CLACRM %CLACRT %CLADIV %CLAED0
           %CLAED7 %CLAED8 %CLAEIN %CLAESY %CLAEV2 %CLAG2Z %CLAGS2 %CLAGTM
           %CLAHEF %CLAHEF_AA %CLAHEF_RK %CLAHEF_ROOK %CLAHQR %CLAHR2 %CLAIC1
           %CLALS0 %CLALSA %CLALSD %CLAMSWLQ %CLAMTSQR %CLANGB %CLANGE %CLANGT
           %CLANHB %CLANHE %CLANHF %CLANHP %CLANHS %CLANHT)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
